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ABSTRACT 


Data acquisition software was written to recover the 


ability to make loss measurements using a five-hole 


pneumatic probe Wieaeewr na scunnel= tacrility currently 
containing a modeled subsonic cascade of controlled 
diffusion (CD) stator blades. Acquisition, reduction and 


ancillary programs were written for a Hewlett Packard 9000 
Series 300 computer/HP 3052 Data Acquisition System in HP 
BASIC 5.0. The new software was demonstrated and validated 
by conducting a set of surveys at the (near to stall) air 
inlet flow angle of 48 degrees. The survey results showed 
a diminishing core of two-dimensional flow through the 
blading due to side wall boundary layer effects, and 
integration of upstream and downstream meaSurements gave an 
axial velocity-density ratio of 1.108 and a NASA loss 
@Seerficient of 0.097. Prior to the surveys, the probe was 
calibrated in a free jet facility, thus also revalidating 
the calibration software. It was concluded that the 
facility instrumentation and procedures were now in place 
for making accurate off-design loss meaSurementS ona 


moutine basis. 


ikal ei 


THESIS Pisce rir 


The reader is cautioned that computer programs 
developed in this research may not have been exercised for 
all cases of interest. While every effort has been made, 
within the time available, to ensure that the programs are 
free of computational and logic errors, they cannot be 
considered validated. Any application of these programs 
without additional verification is at the risk of the 


user. 
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Off-design compressor performance iS becoming more 
important as future engine design goals involve higher 
thrust-to-weight ratios, lower specific fuel consumption, 
and smaller size. Currently, great demands on the engine 
are made during high angle-of-attack flight by fighter 
meeerart and by VSTOL and rotorcraft operating in flight 
conditions that greatly distort the flow to the compressor. 
Design goals and extreme operating conditions push the 
compressor operating point towards the stall boundary. 
Megs, it is vitally important to have methods for 
predicting stall margin in the process of design. 

The modeling of compressor flows using computational 
fluid dynamic (CFD) codes is the key to such a development, 
and cascade data on flow structure and blade element 
behavior are required to validate the codes. While flow 
structure of the velocity field can be mapped using a laser 
dopler velocimeter (LDV) system, it is the loss coefficient 
(introduced in Chapter VI of Ref. 1) which is the essential 
integral measure of the blade element performance. The 
focus of the present work was to recover the ability to 
make loss measurements uSing a pressure probe in the Naval 
Postgraduate School’s (NPS) cascade facility. 

In the present study, the cascade was configured with 
the mid section of a controlled diffusion (CD) stator blade 


designed by Sanger [Ref. 2] at NASA Lewis Research Center. 


Previous studies using CD blading in this facility include 
the work of Koyuncu [Ref. 3], who conducted fourteen tests 
at air inlet angles from 24.3 degrees to 47.2 degrees to 
measure blade performance using pressure probes. Dreon 
[Ref. 4] followed with probe studies at air inlet angles of 
40.3 degrees and 43.4 degrees, concentrating on verifying 
the accuracy of the loss measurements. Dreon’s work is 
cited frequently throughout the present report since much 
of what he did, in principle, was used to guide the present 
work. Elazar [{Ref. 5] performed detailed measurements of 
inviscid flow in the passage between two adjacent blades, 
the boundary layer development on the blade surfaces and 
the early wake development using a two-component LDV 
system. Baydar [Ref. 6] made wake measurements using hot 
wires to verify the LDV wake measurements made by Elazar. 
In these earlier studies, the cascade flow was found to be 
acceptably uniform and periodic (each blade passage the 
same), and showed good span-wise independence. Cascade 
flow quality was initially analyzed by NACA [Ref. 7] and 
first addressed at NPS by Duval [Ref. 8]. 

The necessity for the present work arose when an 
obsolete and unsupported computer was replaced by a Hewlett 
Packard 300 PC in an upgrade of the facility’s data 
acquisition system. Entirely new software was required to 
be written (using HP BASIC 5.0) to replace the many 
previous programs. A simple translation of the previous 


software was not attempted in view of the undocumented 


modifications generated by a series of previous investiga- 
tors. The new software is described fully in Appendix B. 

Overall, recovering the ability to make loss measure- 
ments involved first, the calibration of a five-hole 
conical pressure probe (Appendix A), second, developing the 
required acquisition and reduction software and third, 
obtaining a complete set of preliminary measurements at an 
air inlet angle of 48 degrees to demonstrate and validate 
all aspects of the procedure. The conclusion of the study 
was that the calibrated probe and data acguisition system 
are indeed operational, and ready to be used to make 
Surveys and loss measurements in the cascade. 

Section II of this report describes the experimental 
apparatus, namely the cascade facility, instrumentation and 
the data system. Sect lon lit addresses the test 
conditions, calibration, procedures, method of referencing, 
ang outlines the measurements that were made. The results 
are presented and discussed in Section IV followed by 
conclusions and recommendations in Section V. Appendix A 
contains the details of the probe calibration. Appendix B 
contains a complete discription of the new software, with 
listings of all programs and samples of the printed output 
tables. Appendix B is intended to serve as a description 
and user guide to the software. Prmaliy, Appendix © 


cutliines procedures for referencing the probe yaw angle. 


Ij. EXPERIMENTAL APPAR ia 


A. CASCADE SWIND VUNTETE 

The NPGS cascade facility 1s Shown in Figs) D2 hee ae 
shows the test section. A detailed description of the 
facility, test section and CD blading is containedauaeam 


Ref. 9. 


Be CONTROLLED DIFFUSION BLADING 
Reference 2 describes the CD blading in detail. A 
profile of blade and pressure tap locations on instrumented 


blades are shown in Fig. 3. 


Cr INSTRUMENTATION 

The five-hole conical probe used and described by Dreon 
(Ref. 4} was calibrated and used for the probe 
measurements. Appendix A contains the calibration details. 

The ilron-constantan thermocouple, plenum pressure probe 
and instrumented CD blade were used as described by Dreon. 
Wall static pressure was measured from a centrally located 
tap upstream of the blades. A Prandtl probe was installed 
approximately midway between the inlet guide vanes and the 
test blading. The probe was located at mid span between 
blades 15 and 16, well clear of the probe survey locations. 
The Prandtl probe measurements provided an additional 
measure of tunnel conditions. The cone probe, plenum, wall 
static and Prandtl probe pressures were connected to a 48- 


port Scanivalve. A second Scanivalve sampled pressures 
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CD Blade Pressure Tap Locations 


Figure 3. 


from the fully (blade 10) and one partially instrumented 
blade (blade 11), and from the plenum. 

A yaw transducer on the conical probe, linear over the 
range used, provided the means to record inlet and outlet 
flow angles. 

Probe displacement in the blade-to-blade direction was 
determined by a turn counter on the motor-driven traverse 
mechanism. 

Span-wise displacement was recorded manually froma 


vernier scale attached to the probe. 


Bie DATA ACOUTS ELION soyvYSTEM 
1. Hardware 
A simplified schematic of the data acquisition 
system is shown in Fig. 4. 


The data were collected using the Hewlett Packard 


Data AGGUd Ss icedon System (HP-3052) with instruments 
connected through an Interface Bus (HP-98034, HP-IB). The 
HG-78K Scanivalve controller, which controlled the 


selection and positioning of the Scanivalves is described 
by Geopfarth [Ref. 10]. A Hewlett Packard 900 series 300 
computer controlled the system. The instrumentation 


channel assignments are given in Table Bl. 


2 oe SO ene wien 
Three programs comprise the data acquisition 
software. Program "ACQUIRE" controls the acquisition and 


stores the collected data. Program "CALC" reduces the data 
to commonly used engineering quantities and "LOSS" computes 
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the static pressure rise coefficient, axial velocity 
density ratio (AVDR) and loss coefficient. Software 


details are contained in Appendix B. 
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Cee oo Le ROCEDURESTAND PROGRAM OF 
MEASUREMENTS 


Pee PES: PROCEDURES 
ipeeseeting Test Conditions 
Murray (Ref. 11), in a recently completed study, 
set the wall angle to 48 degrees for LDV measurements. A 
complete account of the angle setting procedure is given in 
Appendix A, Section VI of Ref. 11. All tests in the 
present study were conducted at a wall angle setting of 48 
degrees and an inlet dynamic pressure (Q) of 17" H.0. 
Atmospheric pressure was taken to be constant over the 
survey period of approximately two hours. 
fe ealibration 
The Scanivalves were calibrated prior to each test 
using shop air and a water manometer. The probe yaw 
transducer was scaled at two limiting settings prior to 
each test, having been shown previously to be linear to 
within 0.2 degrees—the resolution of the yaw vernier scale 
on the probe. 
3. Referencing 
Pressure and velocity values obtained by reducing 
probe test data at each probe position were referenced to 
the tunnel conditions at the time of the recording. This 
eliminated the effects that small changes in the tunnel 
supply conditions might have had on the calculation of the 


ieee coefficient. 


Te 


4. Data Points 


The probe Surveys consisted of a series of 
individual measurements at intervals ranging from .05 - .5 
inches. At each interval, the probe was balanced in yaw 


(Appendix A) and measurements taken—defining a data point. 
The data collected were reduced using the equations given 


InetaD reas 


B. PROGRAM OF MEASUREMENTS 

A summary of the probe surveys conducted in the present 
study is contained in Table II. First, a set of probe 
SurveyS waS conducted to establish the flow quality into 
the cascade test section. Second, an inlet survey in the 
blade-to-biade direction was conducted to examine inlet 
Unirormity . Span-wise surveys upstream and downstream of 
the blades were then made to examine two-dimensionality. 
Finally, detailed blade-to-blade, mid-span Surveys over one 
blade passage were made upstream and downstream in order to 
compute the loss coefficient. 

Upstream and downstream SurveyS were made at the 
traverse locations indicated in Fig. 2. Intervals between 
data points were decreased when a change in flow conditions 
was evident. Downstream span-wise surveys were located 
+ 1.2 inches from a vertical extension of the trailing edge 
of blade 9. Surface tap pressures were recorded from the 
instrumented blade after the last probe data point was 
recorded ious the upstream blade-to-blade survey. 
Additionally, pressures were recorded from the partially 
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TABLE I. 
PARAMETER EXPRESSION 
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HABER SII |] PROBE SURVEYS 


NOMINAL 
SURVEY # LOCATION DeRnerTOn INTERVAL(in. ) 
(Length ) 
u UPSTREAM BLADE-1TO-BLADE so 
(20 Blade Spaces) 
2 Pol REAM SPAN-WISE Os = ol 
5 DOWNSTREAM SPAN-WISE e057 = et 
{Pressure 
Side, 1.2") 
4 DOWNSTREAM SPAN-WISE 0.5 eee C 
(Suetion 
emda es i.2") 
5 eS TREAM BLADES TO- PLAS a 
(1 Blade Space) 
6 DOWNSTREAM BLADE-TO-BLADE 110) 5 alae 


(i Blade Space) 


is: 


instrumented blade to aid in establishing periodicity. 
Three data points were collected from the suction side and 
two from the pressure side. Further, a trailing edge tap 


on this blade provided base pressure. 


IG 


iia RESULLS ANDSDTISCUSSION 


eee FLOW FIELD 

The probe surveys were considered to be preliminary and 
were conducted primarily to demonstrate and validate the 
new data acquisition software. The results were interest- 
ing, however, since they were the first to be obtained at 
an inlet angle of 48 degrees with the CD blading. Survey 
results are presented in Figs. 5-22 and tabulations of the 
detailed blade-to-blade and instrumented blade data are 
given in Appendix B, Tables B2 - B7. 

fe inlet Frowebleld 

The inlet fiow field was seen to be acceptably 

uniform. Deviations from a fully uniform velocity were due 
to inlet guide vane wakes and non-uniformity in vane 
geometry. A non-uniform migration of the guide vane wakes 
is thought to explain the irregular profile of the inlet 
flow angle across the span, seen in Fig. 10. 

2. Two-Dimensionality and Periodicity 

Downstream span-wise surveys, located one inch to 

both the pressure and suction sides of the blade, show a 
diminishing core of two-dimensional flow. This was the 
result of side-wall boundary layer build-up through the 
test section. Flow properties were independent of span 
only over a limited displacement to the pressure side of 


the blade. The significant difference between the pressure 


sles 


and suction side span-wise profiles was due, in part, to 
the probe being in the blade wake on the suction side. 
Periodicity cannot be shown with results obtained over 
only one blade passage. However, the first and last points 
in the downstream survey over one blade passage in Fig. 20 
can be seen to be in good agreement, which is required if 
the flow is truly periodic over successive passages. The 
degree to which periodicity was manifested was also seen in 
Fig. 23. Three values of the coefficient of pressure for 
the partially instrumented blade are shown plotted with the 
distribution of values for the fully instrumented blade. 
Values for two other taps, towards the leading and trailing 
edge on the suction surface, were omitted due to partial 
blockage of the pneumatic lines leading from these taps to 


the Scanivalve; otherwise, good agreement was noted. 


By BLADE ELEMENT PEREORMANCE 

In the distribution of pressure shown in Fig. 239%me 
strong adverse pressure gradient is clearly indicated over 
the first ten percent of the blade chord on the suction 
side. The profile was Similar in shape to those recorded 
in Dreon’s [Ref. 4] and Elazar’s [Ref. 5] work at inlet 
angles of 43.7 degrees and 46 degrees respectively. It is 
noted that the trailing edge (base) pressure on the 
partially instrumented blade gave Ch = 0.253. 

From an integration of the data obtained in Surveys 5 
and 6 (Table II) using program "LOSS" (Appendix 8B), the 
AVDR was calculated to be 1.108 and the loss ccefficient 
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was 0.097. The loss coefficient value is shown plotted in 
Fig. 24 where it can be seen in relation to Dreon’s and 


Koyuncu’s [Ref. 3]}) losses. 


C. MEASUREMENT UNCERTAINTIES 

All measurement uncertainties listed in Table I of Ref. 
4 were the same for the present study except those for the 
inlet and outlet flow angles. The absolute values of the 
flow angle for the present data were not known to better 
than an uncertainty + 2 degrees. The means to establish a 
pneumatic axis referenced 1 axe) a precisely measured 
horizontal or vertical axis on the cascade was not 
available at the time of the measurements. The probe yaw 
angle readout was set to zero when the probe tip was judged 
to be pointing vertically downward. The inlet angle was 
subsequently observed to indicate approximately 48 degrees 
at the inlet station, consistent with Murray’s [Ref. 11] 
observations. The yaw angles recorded during the tests 
were uncertain on an absolute basis; however, the relative 
flow angles recorded from the yaw transducer during the 
surveys were accurate to within 0.2 degrees. 

The proposed method for obtaining absolute accuracy in 
the yaw angle measurements, using the optical accuracy of 


the LDV system for referencing, is given in Appendix C. 


D. TABULATED AND PLOTTED QUANTITIES 
The data from surveys 5 and 6 (Table II) are shown in 


Tables B2 - B5. The tables include values of the 


1, 


Scanivalve gauge pressures, yaw transducer reading, plenum 
temperature (total temperature) and atmospheric pressure. 
Pressures are given in inches of water. Table Bl will aid 
in interpreting the scaled probe data. 

Appendix B defines and describes the quantities Beta, 
Gamma and Phi which are listed in Tables B3 and BS. The 
ensemble averages given at the end of Tables B3 and B5 
represent the nominal (ensemble averaged) test conditions 
for the survey. All other quantities can be interpreted 


using the List of Symbols and Table I. 
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Figure 5. Inlet Survey: V1/Vref vs. Probe 
Displacement, Blade-to-Blade 
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Figure 6. Inlet Survey: Pret —bie/Oret vcr 
Probe Displacement, Blade-to-Blade 
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Figure 7. Inlet Survey: Betal vs. Probe 
Displacement, Blade-to-Blade 
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Figure 8. Inlet Survey: V1/Vref vs. Probe 
Displacement, Spanwise 
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Figure 9. Inlet Survey: Pref-Pti/Oref vs. 
Probe Displacement, Spanwise 
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Figure 11. Outlet Survey: V2/Vref vs. Probe 
Displacement, Spanwise (Pressure Side) 
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Figure 12. Outlet Survey: Pref-Pt2/Qref vs. 
Probe Displacement, Spanwise (Pressure Side) 
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Figure 13. Outlet Survey: Beta2 vs. Probe 
Displacement, Spanwise (Pressure Side) 
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Figure 14. Outlet Survey: V2/Vref vS. Probe 
Displacement, Spanwise (Suction Side) 
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Figure 15. Outlet Survey: Pref-Pt2/Qref vs. Probe 
Displacement, Spanwise (Suction Side) 
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Figure 16. Outlet Survey: Beta2 vs. Probe 
Displacement Spanwise (Suction Side) 
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Figure 17. Loss Survey: V1/Vref vs. 


Displacement, Blade-to-Blade 
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Figure 18. Loss Survey: Pref=PCl/Oref Vouereese 
Displacement, Blade-to-Blade 
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Figure 20. Loss Survey: V2/Vref vs. Probe 
Displacement, Blade-to-Blade 
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Figure 21. Loss Survey: Pref-Pt2/Qref vs. Probe 
Displacement, Blade-to-Blade 
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Figure 22. Loss Survey: Beta2 vs. Probe 
Displacement, Blade-to-Blade 
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Figure 23. Surface Pressure Distribution: 
Cp vs. X/C 
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V. CONCLUSIONS AND RECOMMENDATIONS 


Preliminary probe surveys were conducted at an inlet 
flow angle of 48 degrees using data acquisition software 
specifically written for the Hewlett Packard 300 PC and 
associated acquisition hardware. From the study, the 


following conclusions were drawn: 


1. At an inlet flow angle of 48 degrees, there was a 
vanishing core of two-dimensional flow at the 


downstream survey station. 


2. The blade-element performance quantities derived 
from the measurements were consistent with previous 


results at lower angle settings. 


3. Software for calibrating five-hole pneumatic probes 


was revalidated and made available for use. 


4. New software, for acquiring and reducing probe 
survey data to obtain the AVDR and loss coefficient, 


was written and verified. 


5. The facility, instrumentation and procedures are 
available je ONE making accurate off-design loss 


measurements on a routine basis. 


Recommendations focus on improving results which can be 


obtained using pressure probe surveys in this facility. 
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(Recommendations concerning the software are given 


separately in Appendix B.) The recommendations are: 


1. Make probe surveys closer to the trailing edge of 
the blade to reduce the effects of side-wall boundary 


layer buildup on the two-dimensionality of the flow. 


2. Redesign the front wall of the cascade tunnel to be 
made of lighter materials and of modular construction. 
The present facility requires a high capacity overhead 
Hoist §te remove the wall to modify the cascade 
geometry. The modular construction would provide the 
means to expand the coverage of pneumatic and hot-wire 
probe surveys without sacrificing the quality of the 
flow through the test section. A design with 
interchangeable window and survey panels would provide 


Grearer accessul or the wae: 


Bi Dreon’s (Ref. 4] recommendations concerning 
calibrating the probe in yaw and automating the probe 


traverses “are Trertceracca- 


4. Incorporate the use of highly accurate linear 
variable displacement transducers Cin De) in 


implementing item 3. 


bie Consideration should be given to using two probes 
simultaneously to conduct the survey (the software has 


this provision) to avoid the danger of damaging the 
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probe during transfer to and from the upper and lower 


traverse slots. 


6. Use the LDV system to obtain an accurate probe 


angle reference as shown in Appendix C. 


7. At the present and any higher inlet angle settings, 
fully map the downstream flow field to better establish 


flow quality and degree of two-dimensionality. 


8. Extend the blade-to-blade surveys to conclusively 


establish periodicity. 


9. Employ the cascade’s boundary ay Cie UCELON 
provision to extend the range of two-dimensional flow 


at high inlet flow angles. 
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APPENDIX A 


PROBE CALIBRATION 


Als INTRODUCTION 

A five-hole conical probe was calibrated ina 7" free 
jet facility. The calibration process involved acquiring 
the data necessary to calculate the probe coefficients, 
beta and gamma, for various probe pitch angles and free jet 
flow velocities. Beta and gamma can be shown (Appendix A, 
Ref. 12) to be functions of Mach number and pitch angle 
(phi) when the probe is balanced (no yaw). The values of 
beta and gamma over the range of flow velocities and pitch 
angles tested are, in turn, used to determine a set of 
probe calibration coefficients for polynomial expressions 
for Mach number and phi in terms of beta and gamma [{Ref. 
12}. From the polynomial expressions, the Mach number and 
pitch angle can be determined when the five-hole pneumatic 
probe is immersed and balanced in an unknown flow. 

In the reduction program "CALC" [Appendix B], beta and 
gamma are calculated from the pressures sensed by the 
probe. The files containing the probe calibration 
coefficients are accessed by "CALC" and the coefficients 
are made available to the subprogram Xphicalc where the 
non-dimensional velocity X and pitch angle phi are 
calculated. The relation between X, Mach number and other 
quantities involved in the calculation of the loss 


coefficient can be seen in Table I. 
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Section A2 describes the calibration apparatus. The 
calibration test program is addressed in Section A3. 
Results and discussion in Section A4 are followed by 
Recommendations in Section AS. Tables of data produced 
during the calibration of the cone probe used in the 
present study are contained in Section A6. 


The following is a list of symbols used in Appendix A: 


PA Atmospheric Pressure 

PK Total pressure as sensed by the Kiel probe. 
Pl - P5 Probe pressure parts as shown in Fig. A2. 
P23 (P2 + P3)/2 


B2. PROBE CALIBRATION APPARATUS 

A2.1 Hardware 

An illustration of the probe calibration apparatus and 
picture of the probe are shown in Fig. Al and Fig. A2 
respectively. The probe port numbering is also shown in 
peg. A2; The 7 inch diameter free jet receives air from 
the Allis Chalmers compressor. Flow rate is controlled by 
a hand operated valve near the free jet attachment to the 
settling chamber. Honeycomb flow straighteners remove 
Swirl and the nozzle acceleration generates a nearly 
uniform velocity profile at the probe. 

A United Sensor 5-hole conical probe, #DC-125-24-F- 
22-065-4" was mounted vertically on top of the free jet 
frame. A special mount allowed the probe to be yawed, 


pitched and translated i.e., the immersion distance 
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could be varied. In this case, the immersion distance was 
fixed to read 7.1 on the vernier, allowing the probe to be 
rotated about its tip. 

A combination Kiel and thermocouple probe was mounted 
horizontally and positioned into the flow to read total 
pressure and temperature. 

Two water manometers were mounted next to the free 
jet. Pressures from conical probe ports 2 & 3 were fed to 
each side of one manometer, thus allowing the probe to be 
balanced in yaw. Total pressure as sensed by the Kiel 
probe (PK) was fed to the other manometer to allow the 
total flow of the free jet to be adjusted and monitored. 

A Scanivalve rated at 2.5 psid sampled the conical 
probe pressures in addition to the Kiel probe and 
atmospheric pressures. A scanner, Scanivalve controller, 
and digital voltmeter (DVM) were used in conjunction with 
the Scanivalve to convert the pressures to digital form for 
subsequent storage and reduction. 

Data acquisition software was run on the Hewlett 
Packard 9830 computer and associated peripheral components. 
The HP 9830 system primarily was used to record, store, and 
reduce the Scanivalve and thermocouple output while the HP 
21MX system performed the calculations to generate the 
probe calibration coefficients. 

A2.2 Software 

The primary acquisition program was PRBCAL. Entries 


consisted of atmospheric pressure in inches Hg, number of 
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separate probe pitch angles (maximum of 12), Scanivalve 
number, temperature channel and number of samples to 
average (normally five). The program acquired the data for 
each probe pitch setting, then stopped to allow the user to 
change the pitch setting and balance the probe before data 
waS again acquired. After all pitch settings had been 
sampled, the program prompted the user for a six element 
alphanumeric file name for the data to be stored. This 
file had to be opened prior to running PRBCAL. After the 
file name was entered in response to the prompt, the 
reduced data was printed in the form of Tables Al - A3. 

The program PRBRED generated probe coefficients and 
other parameters from the PRBCAL data files. PRBRED,; used 
in conjunction with the "KEY" program PLOTK, allowed probe 
coefficients to be plotted against pitch angles. The PLOTK 
program required some familiarity with Hewlett Packard 
plotting procedures. 

CALI2 provided the means to transfer data files from 
the HP 9830 system to the HP 21MX system. This was 
required since the 9830 system does not have the capability 
to generate the calibration coefficients. PRBCAL, PRBRED, 
PLOTK & CALI2 were on disc SHREEVE P@@7. 

A data transfer program, also named CALI2, was loaded 
and run on the HP 21MX when CALI2 was run on the HP 9830. 
The raw data files were transferred and probe calibration 
quantities were calculated by the HP 21MX programs as shown 


in Tables A4 and A5. The program JOHN3 combined the 
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TABLE Al. TABULATED SCALED DATA OUTPUT BY 
PRBCAL (DATAFILES CV = 100; CV = 150) 


FAN DATA WHITH VOLTAGE CORRECTED 10 FRESSUPESCIH.H2Q@> | 


oT D 


FA-F A FCAL-FA4* F1-PA F23-PA F4-FA FS-FA FE-FA 
-G. 0049 34.519 *+ 2.402@ -@.16390 A, 2420 -O.47 44 2.2364 
-@,.0240 234.468 ¥+# 2.4120 -@.1430 AL1120 -0, 3980 2. 34e 
-0.0440  -@.045 ¥* 2.7768 -@,127a @.nez9 -0, 3580 S36 
-A,.AZ4A -O,A30 *# 2.33°0 -.1270 a.8s4Q@ ~9@.2180 2.354 
-8,8520 -Q@,044 + 2.31390 -@.1198 H.G12G -0. 2500 2.326 
-A,.0360 -8,036 *# 2.3928 -@.1240 -@.8320A -#. 2180 eu d4e 
-.0449 -@,@A52 #+# 2.27808 -G.13280 -AL12466 -Q.199¢ 2.306 
-A.A50Q -O,020 #+# 2.3280 -@.11698 -0.114@ -9.1220 2.338 
-@,0340  -O@,054 #+* 2.2280 -@.127AM -A.172 -A., A280 2.318 
-9.0480 -Q,@50 #* 2.3188 -@.1290 -0,230@ -a@.az6a 2.328 
-Q.042Q -@.046 ¥+# 2.2960 -0.11900 -0,256@ a. A200 2.344 

HIMOS. FRESS. CIN.HG2 TEMPERATURE (FF? 

3AQ.06 98.61 

30,06 93.43 

20.06 100.0; 

20.06 1A9.58 

38, O6, 190,32 

20.06 101.292 

30.86 101.232 

20,06 191.60 

an. 085 191.76 

20.06 161.33 

30,06 1@2.2¢ 
Dit STOPED IH C¥=14Aa . 
FAW DATA WITH YOLTAGE CORRECTED TO FRESSUFESCIN. H2G- 

Pileles! FURL-FA* P1-FR F23-FA Fa-FA Posh FE-F 
4.0540 SZ. ne Ss 5.2200 -O,2430 A. 5460 -1.,8200 G32 
A UeIN Be. 324 +e 5.23668 -a,2A1a A, 2200 -A, 25.40 yeiete 
J.NF EO “QO, 030 #4 5.2540 -0,2820 A176 ~@. BIS 5,29 
“OQ. CFO -O.0.2 ¢# S 2oce -A. 2680 B. 144K -A,63920 ae pel 
-O, 00-10 =O, 01 2. 5, 2560 -A. 2620 @. 4104 “41,6229 5.292 
-0. 0360 “Q.€22 «x 5.2528 -8.2490 -0,ag20 -A, S320 ©, 306 
-O.G600 -O@.0re s« 5.2940 -@,22309 -f.1440 -A. 4160 5.314 
“Howe Oe ae S.27dQ@ 8 =-O.227T8 860-2280 -0.2920 5, 338 
-4,03900 “Q.056 ## 5.2948 -8.2120 -, 2200 -0,1940 aedie 
-Q.8°40 -O.Q64 +, 5.2260 -@.24190 -9,.42290 -.1140 6.276 
-A,10AG -Q, BAS sy 5.2568 -@.2620 -A,6A0E A106 5,322 

ATMOS. FFESS. UNH) TEMPERATURE (F) 
29,A3 199.58 
2a, As 103.70 
20,03 199.78 
78,09 109.73 
30.63 199.70 
30,03 199.77 
20,09 199.79 
38,03 109.77 
30.09 199.80 
34,83 1989.77 
30.09 109.84 
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TABLE A2. TABULATED SCALED DATA OUTPUT BY 
PRBCAL (DATA FILES CV = 200, CV = 250) 


FAM DATA WITH YOLTAGE CORRECTED TO FRESSURESCIN, H20) 





FA-FA PCAL-FAs* F1-PA F23-PA P4-FA FS-FA FRK-FA ** FHI 
0.01090 G.014 ¥# 9.1660 -6.6360 @.25639 -1.8509 9,250 ** -6.0 
-@.@168 -~O.014 + 9.2660 eA ae 10) A. 568: -1. 56608 2,264 ¥* -4.0 
-9.05260 -@.962 *# 9.2540 -@.5418 O.303A  ~ 1.4326 9.2348 #* -3.6 
-8.07@0 -8.070 ## 9.2000 -A.5010 Q.1t3 = 1.29740 9,389 +* -2.0 
-. 840 -8.030 #2 9.3100  -9.4610 Ol oies  -1. 0240 9.372 #% -1.0 
-9.0160 -@.020 ** 9.3000 -@.4860  -€ OAS Slat =o) vt 
-2,.8200 -0.024 ¥% 9.2560 -0.4620 -A.4869 -6, 6080 2,344 ¢ 2.0 
-0.9380 -@.044 #8 9.2840 -8.45230 -0.6249 . -@.438A 9.364 ¥# 2.4 
-0,.0320 -8.032 #% 9.2140 -8.4670 -O.7720 -a.2440 9,226 ## 4.0 
-9,.0300 -@.024 *% 9.2360 -@.5190 -1. 10088 A.1280 2,334 *# 6.0 
HTMOS., PRESS. C€IN.HG) TEMPERATURE ©F) 
30.14 102.45 
30.18 108.28 
30.16 108.2 
28.10 163.24 
30.10 Lasoo 
30.19 198.75 
70.10 108.72 
30, 10 108.72 
20.10 1038.75 
20.10 1088.85 
20.10 108.99 
HHITA STORED IHW CY¥=zoe 
FAW DATA WITH VOLTAGE CORRECTED TO PRESSIRESCI‘) 2 a 
FH-FA _f 
A.1040 Sd ee ig eee Fea-PR P4a-Py F5-PA PR-FM * PHI 
“0.4400 321978 ss 146349 a eat Reece =s-118 14.55¢ ¢* -¢.0 
-O.08 32. ar ae 2 Y.835y -2.5a20 carey Si ety 
~ ae aa aee 2 14.5880 -9. 8020 GB. fee 27, 2326 i: ae ce : 
“0.6140 33.642 ee eels Be 620 ees Cae “1.9949 14 ess ee -2 1g 
“8.9329 “9.024 +s j4lenag oereee? 9.938 -1lTae0 | Lalead #* -1.0 
Beer 80GB xe 146969 “e678 0 solaeey bee 14-764 te 8.8 
“O.2620 -8,258 xs ~ a eine see -2160 ce ae 
~O, 6440 -A, ASA ne a ee 8.4310 ESE, A. eaa 4.820 «* 29 
“1.0720 -9.060 * 1455309 Giese rr pee 18. yS20 4.622 ee 3.0 
-9, a5er =; ae oe Beebe 22350) SO.4 i ee {e624 a4 r 
pe 30 M.O56 ** 14.6380 -o.88eq -4 ‘ajep alasEn eer a Bie 
ATHOS. PRESS. CIH.HG) TEMPERATURE cf) 
30.11 107.26 
20.11 197.12 
20.11 197.12 
ee 107.12 
20.11 107.89 
eee lt 197.19 
etl 197.26 
eh, 1] 107.26 
30-11 197.29 
30.11 107.16 
38.11 187,33 
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TABLE A3. TABULATED SCALED DATA OUTPUT BY 
PRBCAL (DATA FILES CV = 300) 


FAM DATA WITH VOLTAGE CORRECTED TO FRESSURESCIN.H25: 


FA-FA FLAL-FR#* Fi-FA F23-FA F4-Fi4 FS-FAR FK-FA ¥# 
A,B320 328,956 #+* 21.1760 -1.5658 Selah -4. 3260 21.936 Ge 
-f.QG20 28.188 #* 21.2360 -1.2ran 1. 32063 -3.6480 21.480 ¥*: 
-.814@ 27.822 2% 21.4426 -1,18938A Q@.9380) -3.3260 ef. S24qe2 
A. 6848 28.518 #% 21.588a -1,.1518 Sn Prat a -2. 2649 21.612 =F 
-, 8280 of. c a #*# 21.4826 -1.19198 Q@.,10a -2, SH0Aa 21.442 ## 
0.8846 2r.048 ## 21.3088 -1,a3ean =o ine oy ea 2. 208EN 1. S34 
-A, A124 26.554 #% 21.3020 -1,8220 -@.F ian -1.°8490 71. shee 
-A. 8268 25.724 ## 21.2680 “1.9278 -{.,354% -1.4690 21.33304¢8 
-H. ASA 25.240 #* 21.5420 -1.06€20 -1., 35440 -1. 8628 21.6Ad ## 
-M., A1EN e4.7°58 ¥# 21.4166 “1.122 = 15 22.14 -AL67 0 21. 74S ot 
-, AA4dB 24.156 ** 21.4520 -1,.345n = epee tes a.14AaA 21.656 #* 
RIMS. FRESD. CIWHG) TEMFERATUFE (F? 

3a.12 187.5a 

328.12 147.56 

28.12 1@°.5a0 

2.12 107.36 

CE ai 107.46 

anole 107.70 

BAL12 147.8 

34.12 10,.8! 

Wie PRA. Ce 

an.12 1Q0.¢7¢ 

3A.12 187.8a 
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TABLE A4. 
(DATA FILES CV = 


100, 


CV = 


HE beta FRAM DATA SET £3 OF EULE CVRt an ARE, 


kota 
fi A] “Ps i] 
LOARAP PS 


NAS O7H 


NAADNZ 
PINT AA 
ONSITE 
NN SAARK 


NGOS 


AN S940 


NOSGAN 


NASBA 


Gevevever 
cory Paap 
mene 7 
APIA? 
LASNGt7 
7 3 en 
076669 
NPFANY 
ONSET A 

-, 030545 
- 0F334,7 
-~,4$44713 


Delta 
~NNAZAS 
09957 
~904972 
-H0N907 
~9NN638 
~HONASS 
000475 
.n00n1g9 

~,00041A0 
-,NNN497 
~-, ON0673 


x yo) 
SHANNA 
FA | ear aoe 
~NARASB 
O° NRA 
LAANAPA 
0404590 
.040454 
~WINAZ6 
NANT AR 
~OANSNG 
-NANASSB 


ee EAE ROM DATO SUT #1 OF EAUE VSI 50 ARE. 


THE 


fio tn 
i ie 0 a 


mt Shy, Ss 


ey 4.382% 


SS ISS 


many 25% 
St ae OG 
PAA ASD 
NAB SH 
NE 3N7 


mot 1S 


oi. 4.39 


he ty 
LB PVAGR 
se aSA, 
NO VAAR 


NP SAGA 


+ USSG i § 


ee an? 7 


1 8A 


I eda ae 


NOTING 


mie 7 


NPR 


Gnnnn 
LOTHNAA 
cern Ad 
~LA7RARN 
SAAT AD 
14 A4AGN 
NBIBAR 
NASGSA 
NADRIAG 

= 0PPARNA 
- O597h"% 
A ae ere: 


Gririnn 
»PBAPAR 
PALZAR 
SARANIN 
»146108 
14 7Nh 
LAAKRIAD 
»NAADAD 
LNAEPGAS 

- AI9IND 
- ,OS5AS4N 
-. 125FRA4 


me oe 


Delta 
~ANAZRS 
SOHNE RE? 
,0N?P 387 
»N041939 
J AAIGOE 
.NNANRB 
»NONSND 
.HN04 34 

- 000395 
-, aNnAT7AHs 
-,.001706 


Delta 
.004748 
»/HNAHVS 
»004380 
-00N3427 
»00°738 
~N0FRBPA 
074053 


SONNE? ° 


-.00N445 
—.NN1P6A 
-, 002939 


oes, 


~vie! 


NAO AR 


AAO ASD 
NANA 


LNANSDS 


PUTAS C1 Wer 
LAHNS7S 
NéAAZS4 
NANGLS 
Sts 05 


~ASAGPA 


861080 


eh er RON DAMA SET ff OF CIE _CV=200 ARE 


J ARrarsea 
QAASES 
.8H0°08 
A7F6R4 
NEADS 


.ORTN0S 


~190466 
A79FBA 
.ORNDOA 


Moichnoa,. 


OBSHASS 
070048 
NENG AL 
O90 5RS 
es ays 
OF 0209 
BCR CLS 
090584 
UBVBSD 
ANP 14 
.090544 


Mochno, 


St ee 
i ar 
aS ae 
135744 
ys 10 
61 S5h96 
ASAE ND 
1 RBASS 
21 A688'5 
Pie gy 
oA SOO) 


Maochno, 


eaten ee 
179624 
lee cee 
UP oA 
ur 7 it 
.17861° 
alas 9 ony 4: 
nha A as eared 
TZ ee 
IT9ANT 
A7TIATA 


TABULATED REDUCED DATA OUTPUT BY CALI2 
150, CV = 


200) 


Pty 

-4 00001 
~A,NNAHANA 
—BLNONANHN 
-~, ooANnaNn 
-41 ,0n00N00 
0.009nnnn 
1, 00NONHN 
>, O0000N 
2, ONaNngN 
4,0n0000 
&.0N0AN49 


Pty i 
fy, ON0ONN 
~A.1NN0000 
3, 000000 
> HO00NN 
-4$ 000000 

0. 000nn0 
1, 0NnHANO 
>. nnnnnn 
Zz ann0nn 
A, nnonan 
6 NOBOON 


Ply 

-, 000008 
-A  AFONONN 
- 3, 00 0N 00 
- , A0N000 
-4 ,00N0N0 
fn. gnnnng 

4, 0N0000 

>. BOHNANNA 

3.000000 

4,gn000g 

6.000009 


T Tannet 
SBA 
99 4, OA? 

nn NAS SEN 
FON. S7HANN 
(ON, SA7TTNN 
104 .P VND 
104, 3%PANTH 
ite 7 ost 
{04.7449 
INi . PSACAHA 
102.2735 08 


To oTurnrne t 
{09 A342 Po 
L097 .AF7CRBNN 
GND  A9oHnn 
109 73a 
(NY, 6Ssnnn 


409. 7OFGEN 


FOF BESCRNN 
109.7 5/1" 
ND BOITEN 
O92 7 Ge 3 () 
09 835400 


To oVansyeees I 
108,445 00 
(0B. 477 ANN 
$N0H,2AISTNH 
nL 8 ee Set 1 (I 
408, S445nn 
PO? oi 34 0 
NR. 7IBANN 
10H. 7IEANN 
NH, FSNTIEN 
FOR LANE AAN 
108.987579 


TABLE A5. TABULATED REDUCED DATA OUTPUT BY CALI2 
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(DATA FILES CV = 250, CV = 300) 
THE DATA_FROM DATA SE1 41 OF FILE CVee ea 
\ 

Retna Rarsan Delta X vel Mochno, Pie T Vienna 
AUN Tals Reartg ES i | -INtAA24 OFARRD eee eG -&. 000000 107 St 
~03546603 LPADAPH NOOSA? muy 7 Oe ace Vou ~“A.O0N000 s07.427n0n 
056375 SIRADZY LONA7AR O9DT7TAA wan WN’ -—S.0N0000 TO 7a ee 
NW AASHA A ABPGR .0OSAGN LA99NPG oa Ae -P 400nN0 107). 3.2.20 
NBAALHT S1IGHP YL sNH4P19 wy Une CAS EA Rs i) “{.,HNNNOD Ah?. ORATZAN 
NSAP AS SOR ANA .0NPFAS SINAN s4 LCPARNA N.000NNN AN7 .1F7040N 
44,504 OAGAAA RP UU Reds 1194 sme SAG, 1.NCQNNN {07 3RSeee 
2601 .OIRARAH 1004564 otHhIG7G a7 40? <, OONOHO 4107 2th 
O84 NRA -, IR4AG? -OR0K&6H4 .O995N7 rapt: ara e S. 00000 FN, 25TH 
A364 - NS272966 . ORCS Se see Gale serials A.NH00000 407.4077" 
.A364674 -, L°95R9 .904753 £407 1 PPANDL 4.000000 4107. 37461710 

THE DATA_FROM_DATA SFI # 4 OF FILE CYV=300 ARE 

Gaia see Ne 7 »015374 2120 303 we rtS74 ~f NONHNNH 
Se 556 Pr NOP boa Ba SVALS SA 12NAFS A a, -~A,0N00N0 $170 Gee 
Re pee t rd Bi ela mies br RRs NOOSE 210607 oy (ADD ~3, NANNNON NP? .AVSLAIN 
aout He aay ae | .U0N7998 LONTIF nc ee “2 NHONAN 407, 400 
ASP SN6 oie PS POG? COU Ase cee Nala -J.,ONNNON C7, 4464700 
LO54956 RATA ~UNAAAL erect? ce Fe 0.,0fNNNO ANF GPFIAN 
8S5ISn4 .047440 ,1N2497 SION 3S FNS q,.00ANNNO CA? PHasny 
052059 043664 Ab 744 IONGT70 Wr ee ail ONO 107 Jon 
LNGAGIS =, er s18 —,0N41170 6IPTNTA soem an XZ NNNAHO £07. 764940 
Seat 7 - ,16NR390 ~ ON3059 PET ea! me. FATE A.,ON0N0N 407 7669490 
LOSP S41 ~,14PS75 -, 007554 <i Us47 Ae ori Wey: G,800000 07. BNABON 


separate files generated during CALI2 execution into a 
Single file consistent with the format required for the 
JOHN4 program. (A tabulation of JOHN3 data is not included 
Since the quantities are the same as those listed in the 
separate files of CALI2.) JOHN4 produced a surface plot of 
the data (Figs. A3 and A4) and generated a matrix of the 
probe calibration coefficients (Table A6). Figures A3 and 
A4 are plots of the actual data generated from the probe 
calibration process, while the ERRORS (%) at each point in 
Table A6 quantitatively show the difference between the 
data points in Figures A3 and A4 and the "best fit" surface 
at the given values of beta and gamma. The "best fit" 
surface was given by the polynomial expressions previously 
cited [Ref. ee) using the matrix Oteanecdialwr at] On 
coefficients produced by JOHN4, and tabulated in Table A6. 
JOHN4 produced a matrix of coefficients and also associated 
tabulation of errors at each point for increasingly higher 
order polynomials. The user waS required to make the 
choice of what order polynomial gave the best fit to the 
actual data by an examination of the errors at each point, 
associated with the use of polynomials of different orders. 
It is noted that the program prompts the user for the M and 
N order of the "best fit" polynomial. The coefficients are 
presented in anM by N_ matrix where M represents column 
values and N represents row values. The polynomial order 
entered is thus, M-1 and N-1, since the polynomial order is 


one less than the number of coefficients that it requires. 


55s) 


a 





© 
_ 
y 
™ 
3 ‘y 
& jor 
ee SS) 
iN 
au |. 


Bees 





Figure A3. Surface Plot of Phi. vs. 
Gamma and Beta 
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Surface Plot of X (velocity) 


Figure A4. 
vs. Gamma and Beta 
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TABLE A6é. 


SELECTED USING JOHN4 WITH ASSOCIATED 


COFFFICIENTS FOR THE CALIRRATION SURFACE STORED IN FILE 


i HUSTIG 
3 - OARNOB 


i 


ERPORS(Z) aT EACH POiInT 


$ 2 
i -,.SS4 -1.096 
= 1.004 -.463 
3 -.41fA -.264 
4 2137 32S 
5 -.né4 L139 

i 2 


COFFFICIENTS FOR THE CALIBRATION SURFACE ATORED IN FILE 


2 

4.930133 
-ASFSOS 
-24.844173 
2 


3 4 
32 39 
61 A404 

074 309 
- L98 =.392 
.052 -.050 

3 a 


~1S53.6468740 
=h2.9770H4 
19AH,. 495400 


ERRORS 


2 


3 
°sS 6 
.$22 .499 
-.450 -.257 
Rae Be 649" 
-.785 -.414 
-.0° -,212 
S & 


4 2 3 

t N2IBGAS 3.178720 -599.S593nN70 

? -,SS74N0 L1.t9A36A --79N, 272950 

x 758550 -1A3.445780 42999,.846900 

4 2 3 

ERRORS(DEGREES) AT EACH POINT 

4 2 3 4 S b 
4 -.071 £-.258 097 . PRG 049 1S8 
2 (084 -.047 -.004 -,022 30 N49 
3 =-.949 -.056 094 -.083 .07S -.034 
4 =-.079 ° (476 074 #-.047 -.nf0 -.078 
S .060 -.054 029 -.069 =—,009 .008 
1 2 3 y S 6 
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3137.961490 
2HHR,S70THA 
-S7799 .7020 


4 


tMIKECS 


5 


-24299 050 
“ONR7T?.LABH 
S41R3S.5000 


A Ss 
7 9 
-.435 -.007 -.447 « 
-,4aii -.0S4 1730 ~=«O 
-.092 1437 .P26 
-.160 1.2°S -.346 - 
-.172 1456 213 
7 9 
tHIKEC? 

4 S 
Siza.Ract7on ~450914.A8990 
24622.67190 -187S534.34Nn 
-351917.690 313ARI3R. 000 

4 Ss 

@ 9 
=-.205 .020 -.013 
-.028 -.075 -.n18 
-.026 £025 .096 
-.050 .0S9 .006 
-.053 .006 .097 

7 8 9 


BEST FIT CALIBRATION COEFFICIENTS 


44 
AAA 
2300 

-.027 
-,024 
-,07n7 

1%. 


i$ 
486 
O44 
~.056 
-.008 
-.064 


A3. TEST PROGRAM AND RESULTS 

The calibration was conducted at five flow velocities: 
foninally 100, 150, 200, 250 and 300 ft/sec. At each 
melocity, the probe was moved to -6, -4, -3, -2, -1, 0, 1, 
2, 3, 4, 6 degrees of pitch (phi) and balanced so probe 
port P2 and P3 pressures were equal on the manometer. The 
data were stored in files CV=100 to CV=300 on disc 
SHREEVE P@gZ7. 

Prior to the calibration, a survey of the free jet was 
conducted at a flow of approximately 200m E/SeC £0 
determine the velocity profile. The survey was conducted 
from top to bottom and, with the probe mounted on the 
underside, from bottom to top. There wasS some overlap in 
the survey, which in principle, would allow the departure 
of the jet flow direction from true axial to be resolved by 
the pitch angle indicated from the two sides. 

Data collected in files CV=100, CV=200 and CV=300 and 
subsequently reduced by PRBRED were handplotted to show the 
effect of pitch angle on the coefficients. Fig. A5 shows 
phi vs. beta, where beta = (P1-P23)/P1. Fig. A6 is a plot 
of phi vs. betabar, where betabar = beta/(PK-PA)/PK). Phi 
vs gamma (P1-P4/P1-P23) 1s shown in Fig. A7 and phi vs. 
(P1-PK)/(PK-PA) is plotted in Fig. As. Free jet survey 


results are shown in Fig. AQ. 


eee DLSCUSSION 
The probe calibration data presented in Figs. A3-A9 
are well-behaved and qualitatively consistent with the 
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experience of previous investigators [{Ref. 4 and Ref. 12]. 
Data quality and probe characteristics can be determined 
from the quantities plotted in these figures. A discussion 
of the results in each plot follows. 

Appendix A of Ref. 12 shows that beta is a function of 
the non-dimensional velocity xX and phi with strongest 
dependence on X; gamma is a function of X and phi but most 
strongly dependent on phi. Fig. A5 shows that as the pitch 
angle was changed, there was very little change in beta for 
a given flow velocity. Since beta is related to velocity 
as developed in Appendix A, Ref. 12, the plot implies that 
there waS avery small change in the measured velocity by 
the probe with pitch variation, or that beta is slightly 
sensitive to pitch. The greatest variation in beta is seen 
in the data from file CV = 300. Beta varied by about 1.3% 
which equates to about a 1.1% possible variation in 
velocity. (Change in beta equals change in velocity 
squared. ) 

To remove the variations in beta due to changes in the 
free jet flow, phi was plotted against betabar (Fig. A6é). 
By dividing beta by (PK-PA)/PA, the effect of the changes 
in flow through the jet are removed. The plot shows only 
those changes in beta which are due strictly to pitch angle 
variation. Ideally, all points for each phi_ should 
Gornei1de. Some variation is seen at the extreme phi 
values; however, the betabar scale 1S over expanded by a 


factor of two compared to a scale appropriate to the 
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ability to resolve the measurements, and the differences 
are therefore unneccessarily exagerated. 

Figure A7 clearly shows the strong dependence gamma 
has on phi. The data points tend to be more closely 
grouped in the -2 to +2 deg. range with the lower velocity 
points slightly more separated from the higher velocity 
points. Part of the reason for this difference may be due 
to pressure errors at the lower jet velocities having a 
larger relative effect on the accuracy of the data points. 

Total pressure at the conical probe (P1) and total 
pressure at the Kiel probe (PK) should be nearly identical 
when phi equalS zero. One would expect that the plot in 
Fig. A8 would reflect this, however it does not. It would 
be expected that Pl and PK would differ with pitch change, 
accompanied by some movement of the data points away from 
zero, but the dispersion of the data in this plot is 
difficult to explain. The general trend is that nearly all 
points are less than zero, implying that PK 1s generally 
higher than Pl. This is corroborated by the free jet 
survey which shows that the Kiel probe waS immersed in a 
slightly higher velocity region than was the conical probe 
(see Fig. AQ). Note that JOHN4 corrects for thir 
difference when calculating the coefficients. 
Additionally, it is pointed out by Dreon (Ref. 4] that the 
core of the free jet has a 0.05 degree pitch to it. The 


combination of a nonuniform velocity profile and 
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unsteadiness at low flow velocities might explain some of 


the observed scatter. 


A5. RECOMMENDATIONS 
The recommendations presented here focus on software 


and hardware improvements. The recommendations are: 


ili Restore the capability to generate surface plots of 
the X and phi functional relationship with beta and gamma 
using the "hest arts polynomial and calibration 
coefficients. This would provide a visual qualitative 


check of the fit to the calibration data (Figs. A3 and A4). 


2. Modify the HP-9830 based program PRBRED to include the 


computation of beta bar. 


3. Create specific plotting programs on the HP-9830 to 


plot the quantities in Figs. AS - A8. 


4. Repair or service the printer that supports the HP-21MX 
system. Frequent malfunctions dramatically slowed the 


execution of HP-21MX programs. 


oe Investigate the feasibility of replacing the HP-9830 
with an HP-300 system for probe calibration and related 


work. 
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APPENDIX B 


SOFTWARE 


eles INTRODUCTION 

The software consists of three programs; namely, 
NACOUIRE,; "= "CALC, ™@ and “LOSS. An in-depth knowledge of 
computer programming iS not required to run the programs; 
however, some knowledge of programming in Hewlett Packard 
BASIC 5.0 would be required in order to plot results or 
make corrections to data files. A rudimentary knowledge of 
computers by the user is presumed. The main references for 
the programs are Ref. 13 - 17. 


The programs were written to be understandable and 


flexible. To facilitate understanding program flow, 
emphasis was placed on clear Mocac rather than 
sophistication. To this end, subroutines were called from 


a library to perform all calculations and repetitive 
operations. In addition to providing for one or Ewouproere 
surveys, modifications to hardware addresses on the 
interface bus or changes to scanner channel assignments can 
be made easily at the beginning of the program. 

An overview of the file system and program flow is 
given in sections B2 and B3 respectively, and the step-by- 
step procedures required to run the programs are given in 
Section B4, Program Execution. Common errors and recovery 
steps are addressed in Section B5, and common modifications 


are discussed in Section B6. Copies of the three main 
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programs are contained in Section B7 along with examples of 
the plotting and data file correction programs. Examples 
of output tables of scaled and reduced data for both 
detailed blade-to-blade surveys are also contained in this 
section. Initialization of flexible discs and backing up 
files to flexible discs is addressed in Section B8. 
Recommendations to improve the software are presented in 
Section B9. Finally, for the user, a summary of the steps 


involved in running the program is given in Section B10. 


eee LF lioEe SYSTEM 

Chapter 3 and 10 of Ref. 13 cover mass storage 
concepts (how the computer’s hard disk can be divided up 
for storage space) and the use of files and directories 
respectively. The current directory and file system is 
Shown in Fig. Bil. Four subdirectories were created under 
S@assiCK in the root directory. The sub directory DATA 
contains all the digital voltmeter (DVM) readings during 
the survey. Scaled data, or raw data that has been scaled 
in engineering units, e.g., pressure, degrees, etc., are 
stored in REDDATA, along with the scaled data reduced to 
useful calculated quantities. The probe calibration 
coefficients are also stored in REDDATA. The main and 
ancillary programs are contained under PROGS. ROUTINES 
contains all the subroutines called by the main programs. 

When conducting a probe survey, files need to be 
created to store the data. Data can be collected from 
blade-to-blade or span-wise probe surveys or from a scan of 
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ROOT 
CLASSICK DIRECTORY 
LEVEL 


SUB 
DATA REDDATA PROGS ROUTINES ear 


L-26AUGARAW L-26AUGASCL ACQUIRE SUBACQUIRE 
L-4SEPARAW L-4SEPASCL CALC 
SL-4SEPARAW _ | SL-4SEPASCL LOSS ee ae 
U-4SEPARAW U-4SEPASCL PRBCOEF 
SUP-4SEPARAW |SUP-4SEPASCL | CORRECT OO Ee 
SUS4SEPARAW SUS-4SEPASCL CPBLADEPLOT 
B4SEPARAW B-4SEPASCL VVREFSPAN 
VVREFUSPAN 
L-26AUGAC ALC BETAPOSIT 
L-4SEPACALC PRESSPLOT 
SL-4SEPACALC 
U-4SEPACALC 
SUP-4SEPACALC 
SUS-4SEPASCL 
B-4SEPASCL 
MIKEC3 
MIKE C2 
PREFIX SUFFIX 
L Lower Traverse RAW Raw Voltage Readings 
SL Span Lower Traverse SCL = Scaled 
U Upper Traverse CALC Calculated (reduced) 
SUP Span Upper Traverse Pressure 
SUS Span Upper Traverse Suction 
B Blade 


Figure Bl. File System 
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the instrumented blade surface pressures. For each survey, 
raw data, scaled data and reduced data files are created as 
the user progresses through the programs. The file names 
are arbitrary but should be descriptive in the interests of 
identification and kept to a maximum of twelve characters. 
The file names in this report consisted of a prefix to 
designate the survey type, followed by the date, run and 
data type. The prefix and suffix meanings are given in 
hea. Bl. As anexample, the raw data acquired from the 
lower traverse blade-to-blade probe Survey which was 
conducted on 4 Sept., was named “L-4SEPARAW." If, for some 
reason, this survey were repeated the same day and the 
previous survey results were saved, the new file would be 
named "L-4SEPBRAW." The user should define the file names 


for the proposed surveys before executing the program. 


B3. PROGRAM FLOW 

The program flow from the user’s perspective is shown 
in Fig. B2(a)-(d). The figures show, verbatim, the prompts 
the user will see on the screen and the effects that 
options will have when selected. The selection of options 


will be addressed in the following section. 


B4. PROGRAM EXECUTION 

In this section the procedures to power up the system 
and run the programs will be spelled out. (A summary of 
the steps for the user to run the programs is given in 


Section B10.) The intent here is to provide the user with 
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PROGRAM ACQUIRE 

NAME FILE FOR THE RAW DATA TO 
BE COLLECTED FROM THE PROBE(S) 
NAME FILE TO STORE THE RAW DATA 

SCALED TO ENGINEERING UNITS 

ENTER THE ATMOGPHE RIC 
PRESSURE IN INCHES Hg 
ONE PROBE PRESS “ONE PROBE” IF ONE PROBE 88 USED TWO PROBES 
PRESS “TWO PROBES” IF TWO PROBES ARE USED 













OATA COLLECTED FOR ONE 
SCAN IS PRINTED ON SCREEN 
AS SHOWN W FIGURE B4 







SAME FLOW AS 
FOR ONE PROBE 






% DATA O K.7 PRESS “RECORD” 


TO RECORD DATA, PRESS “REPEAT 
TO REPEAT THE SCAN 


RECORD 
(DATA IS STORED) 


PRESS "GO ON TO CONTINUE TAKING 
DATA, PRESS “END PRB DATA’ TO 
TERMINATE PROBE DATA COLLECTION 


ENO PRB DATA 












RAW DATA IS STORED IN DATA FILE 


PROBE RAW DATA SCALED IN ENGINEERING 
UNITS IS STORED IN REDDATA FILE 


ENSURE THE PROBE IS CLEAR 
OF THE INSTRUMENTED BLADE 


PRESS “COLLECT OATA* TO COLLECT DATA FOR 
THE INSTRUMENTED BLADE PRESS °GO ON” 
TO CONTINUE WITH THE PROGRAM 








8 DATA OK.? PRESS "REPEAT* TO REPEAT THE 
SCAN, PRESS “RECORD’ TO RECORD THE DATA 


Figure B2(a) Program Flow Chart - ACQUIRE 
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AUGN PAPER IN PRINTER TO PANT OUTA 
TABULATION OF THE RAW DATA COLLECTED 


FROM THE PROBE(S), PRESS "RAW TABLE ° 
PRESS “GO ON TO CONTINUE WITH THE PROGRAM 









PRESS “ONE PROBE: IF ONE PROBE WAS USED 
PRESS “TWO PROBES IF TWO PROBES WERE USED 


PRINT RAW DATA 
WN TABULATED FORM 


ALIGN PAPER IN PRINTER. TO PAINT OUT A 
TABULATION OF THE PROBE DATA SCALED IN 
ENGINEERING UNITS, PRESS “SCALED DATA’ 


PRESS "GO ON’ TO CONTINUE WITH THE PROGRAM 


PRESS “ONE PROBE: IF ONE PROBE WAS USED 
PRESS “TWO PROBES IF TWO PROGES WERE USED 


PRINT SCALED DATA PRINT SCALED DATA 
IN TABULATED FORM IN TABULATED FORM 


PRESS °BLADE DATA’ FOR BLADE DATA PRINT 
OPTIONS. PRESS “GO ON” TO CONTINUE PROGRAM 
BLADE DATA 


ALIGN PAPER IN PANTER TO PRINT OUTA 


PRINT RAW DATA 
IN TABULATED FORM 

















TABULATION OF THE RAW BLADE DATA, PRESS 
*BLADE DATA’ PRESS “GO ON" TO CONTINUE 


BLADE DATA 


PRINT RAW BLADE DATA 
IN TABULATED FORM 









AUGN PAPER IN PRINTER. TO PRINT OUT A 


TABULATION OF THE BLADE DATA SCALED TO 
ENGINEERING UNITS, PRESS “SCALED DATA* 


PRESS “GO ON” TO CONTINUE 







TO LOAD PROGRAM TO REDUCE THE ACOURED 


DATA, PRESS “CALC * PRESS *GO ON” TO 
TEAMINATE THE PROGRAM 





PROGRAM CALC 


Figure B2(b) Program Flow Chart - 
ACQUIRE (cont. ) 
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PROGRAM CALC 
ENTER THE NAME OF THE FILE CONTAINING 
THE PROBE DATA BCALED TO ENGINEERING UNITS 


ENTER THE PROBE COEFFICIENT FLE FOR 
X VELOCITY. THIS WRL BE FOR THE LOWER 
PROBE IF TWO PROBES ARE BEING USED. 


ENTER THE PROBE COEFRCIENT FLE FOR Pil 
THiS WILL BE FOR THE LOWER PROBE 
IF TWO PROBES ARE BEING USED. 





| ONE PRoRE | 1F DATA WERE COLLECTED WITH ONE PROBE, PRESS “ONE PROBE 
IF DATA WERE COLLECTED WITH TWO PROBES, PREES ‘TWO PROGES* TWO PROBES 


ENTER THE FE NAME FOR THE DATA ENTER THE FILE NAME FOR THE UPPER PROBE 
TO BE CALCULATED FROM THE PROBE COEFFICIENTS FOR Xv 
tie si le pie gt Sa get laa ENTER THE FILE NAME FOR THE UPPER PROBE 
PRESS "REDUCED DATA’ COEFFICIENTS FOR PHI 
ENTER THE FILE NAME FOR THE DATA TO BE 
PRINTS REDUCED DATA CALCULATED FROM THE LOWER PROBE 
IN TABULATED FORM 
ENTEA THE FILE NAME FOR THE DATA TO BE 
CALC ULATED FROM THE UPPER PROBE 


ALIGN PAPER IN PRINTER. WHEN READY FOR A 





HAAD COPY OF THE CALCLLATED DATA, 
PRESS “REDUCE DATA’ 


PAINTS REDUCED DATA 
IN TABULATED FORM 





TO CALCULATE THE CP'S FROM THE BLADE DATA. 
PRESS “BLADE CPS.” FRESS “GO ON’ TO CONTINUE 
ENTER THE FILE NAME OF THE BLADE DATA 
SCALED IN ENGINEERING UNITS 


ENTEA THE FLE NAME TO STORE THE MASS 


AVERAGED CPS CALCULATED 
FROM THE BLADE DATA 


ENTER THE LIMITS OF INTEGRATION, |.E., THE 
LOWEST TO THE HIGHEST 8&C AN NUMBER DESIRED 

ENTEA THE LOW 6CAN 

ENTEA THE HIGH 8C AN 


ALIGN PAPER IN PRINTER ANDO PRESS “BLADE 
DATA’ FOR HARD COPY OF THE BLADE MASS 
AVERAGED COEFFICIENTS OF PRESSURE 


PRINT CP DATA IN 
TABULATED FORM 












TO LOAD PROGRAM THAT CALCULATES THE AVDA 
AND LOBS COEFFICIENT, PRESS 1088 .° PRESS 
"GO ON’ TO TERMINATE THE PROGRAM 





Figure B2(c) Program Flow Chart - 
CALC 


74 


PROGRAM LOSS 


ENTER THE NAME OF THE FILE CONTAINING THE 
CALCULATED DATA FROM THE LOWER PROSE 


ENTER THE NAME OF THE FILE CONT 
THE CALCULATED DATA FROM THE UPPER PROSE 


ENTER THE LIMITS OF INTEGRATION 
FOR THE LOWER PROGE BURVEY 


ENTER THE FIRST POINT 


: 


ENTER THE LAST POWT 


ENTER THE LIMITS OF INTEGRATION 


ENTER THE FIRST POINT 


ENTER THE LAST PONT 


AVOR AND LO66 COEFFICIENT 
PRINTED TO THE SCREEN 


ENO OF PROGRAM 


Figure B2(d) Program Flow Chart - 
LOSS 
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the necessary information to acquire and reduce the data in 
order to obtain the loss coefficient from a set of probe 
Surveys. The program flow chart should be referred to as 


the program steps are briefly explained. 


1. Turn on the DVM, scanner and Scanivalve controller. 
The computer will not boot-up unless the DVM or scanner 
is on, however, all of these components must be on 


before starting the survey. 


2. tun thesdask drive on end wait for the self test 
to complete (two amber lights below the flex disc 


access extinguish). 


3. Turn on the computer, monitor and printer > aia. 


printer power switch is located behind the unit. 


4. The system will boot up the HP BASIC 5.0 resident 
on the hard disc and go through a series of self tests. 
In less than a minute, the Hewlett Packard copywrite 
statements will appear on the monitor. Soft key labels 
appear along the bottom of the screen; these correspond 
to the top row of keys on the keyboard labeled f1 - f8. 
The Key board and an example of what the soft key 


labels look like for step 12 is shown in Fig. B3. 
5. Press f5 corresponding to the soft key label LOAD. 


6. Type /CLASSICK/PROGS/ACQUIRE between the quotation 


marks. Press RETURN. This establishes the path from 
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User {| Caps Command 


ECORU RUN EPEAT we GAU tei 





Program 





Control Soltkeye and Editing Systam 
Keys Softkeys Control Keys Control Keys 
Can 


SEY (IIIOOSMIO As) OOOO 


MOUDOUOODOUDOODUUHUE) HH 
E UM MOOMOOOMODONO0OUDO HF 
OOOOVOONONVDO00NCI HO 
YPOOVNVD00O00O00D OUD 
So?) eee ee LS 











Character Cureror Numeric 
Entry Keys Control Keys Keypad 


Figure B3. Keyboard and Softkey Labels 
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the root directory where the CLASSICK directory is 
located to the file ACQUIRE via the subdirectory PROGS. 
An alternate way of doing this would be to type in at 
the blinking cursor. the word LOAD followed by 


" /CLASSICK/PROGS /ACQUIRE.™" Press RETURN. 


ce Press £3 corresponding to the soft key label RUN. 
The first prompt in the ACQUIRE program will appear. 
From the program flow chart, it can be determined that 
the prompt will read "NAME FILE FOR THE RAW DATA TO BE 
COLLECTED FROM” THE VPROB ET CSoma. The file name is typed 
in directly without guotation marks, e.g., L-2SEPARAW. 


Press ENTER. 


8. At the next prompt, type in the scaled data file, 


e.9., Us@SErPASCL. SrrcssexeE TURN: 


9. Type in the atmospheric pressure in inches of 
Mercury, e402, 292. Press RETURN. In the program 
this defines the variable Pbaro as equal to 29.92. 
This will normally be constant throughout the duration 
of a survey, however, inthe rare event of a weather 
front passing through, the barometric pressure can 
change during the survey. Es the change is 
Significant, the variable Pbaro can be redefined while 
the program 1S running by performing the following 


steps: 
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a. Press the STOP key next to key fl. 

pe cme earoese meu co change from 29.92 Co 30.00. 

c. Press RETURN. 

c. Press £2 corresponding to soft key label 

CONTINUE. 

nO. Once step 9 has been completed, the one or two 
probe option prompt appears, and the soft key labels 
EDIT and SCRATCH corresponding to keys f1 and f4 
respectively are replaced by ONE PROBE and TWO PROBES. 
Press the appropriate key. Note that the only soft 
keys the user will press during normal program 
execution will be those corresponding to keys fl and 
f4. It will be assumed in the following steps that the 
one probe option was used - the only difference in 
procedure will be an additional position that the user 


must enter for the second probe. 


11. The scan number and position are typed in and sep- 
eeecced by a comma, @€.g., 43, 2.55. Press RETURN. The 
Sean humber can be up to four characters and the 
position, seven characters - four to the left and two 


to the right of a decimal. 


nee . The scan begins after RETURN is pressed for step 
11. All the data for the scan will print to the screen 


for the user to evaluate. An example of the screen 
presentation 1S given in Fig. B4. If the data is 


unsatisfactory, press f4 corresponding to soft key 


Yor, 


EHKHKEFHKHHHHEKHSHFKEKSHKKSKHEHFFHSSHKHKEKEH HEHEHE HEHEHE SEH HEHEHE EE 


SCAN NUMBER 2 
PROBE FOSITION 20@ 


PORT VOLTAGE GUAGE PRESSURE( INCHES H2o) 
| 4.0Q@0E-07 4,@000E-@3 

Z 9.@52E-04 9.@48E+02 

5 1.182E-03 1.182E+@1 

4 -6.17@E-@4 ~6.174E+0@ 

a 5.254E-@4 5.250E+0@ 

6 =6.560E-05 -6.600E-@1 

7 =5) S0UE—=Os -6.420E-O1 

8 -3.060E-@5 =A. 100E=01 

g =) el ObE=04 ~1.110E+@0 
10 1.@16E-@3 | O16E+O1 

a =6..(90E-04 -6.794E+00@ 

lz 4.@00E-07 @.000E+@0 

13 -2.6Q0E-@6 ~3.@@0E-O2 

14 6 .@Q00E-2@7 2.@00E-@3 
HHKHKHHKKHRHKHEKHEKKEKHEKKKHKEKHHKHHEKEKRKEKHEHKEHREHHEHKHHHEHHHEHREHRH RE 
YAW CHAN READING 0023624 
raw (OEGREES) 2.3624 
TEMP CHAN READING =, 0012326 
TENPERATURE “DEGREES UR? 452 .445752 
ATMOSPHERIC PRESS < INCHES») 3@.00 (Hg) 407.10¢(H20) 


HHHEEHEHHHRERHAAHRHAHREKREHHAHEKREREHRHHHEHHERHRHHEHRHHEKRHEHEHREKRREHEKRHEEHH HERE HE H 


IS DATA OK? PRESS “RECORD” TO RECORD DATA. PRESS REF Ea 
REPEAT THE Sealy. 


HHKHHHHHHHHEHRHEHEHEHHERHHEHEHEHHHEHEEHHEEKHEEHEHHEHHHHHEHKHEHKHHKHEEHEHHAEHKHRHERHE HEHE 


Data Printed on the Screen - 
One Probe Scan 


Figure B4. 
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label REPEAT. This will return the program to step 11. 
If the data is satisfactory, press fl corresponding to 
soft key label RECORD. The disc drive amber light will 


flash momentarily as the data is stored on the disk. 


13. Press GO ON to continue taking more data. This 
will return the program to step 11 again and the cycle 
repeats until the survey is terminated by pressing END 


PRB DATA. 


14. A statement appears informing the user what file 
names the raw and scaled data files are under. This is 


just a reminder and requires no action. 


15. The next statement iS a reminder to clear the 
probe away from the instrumented blade before 


collecting a blade surface pressure distribution. 


16. Options appear to either collect the blade data or 


by-pass this operation and go on to the print options. 


17. The collect option requires file names for the raw 
and scaled data. Type the names as was done in steps 7 


and 8. 


13. The scan begins after RETURN is pressed for step 
17. The blade data will be printed on the screen. As 
in step 12, the scan can be repeated if the data is 


unsatisfactory. An example of the screen presentation 
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is given in hig@eeeesse Similarly, the data is stored 


when RECORD is pressed. 


19. After recording blade data, there follows a series 
of print options for the stored probe and blade data. 
The steps are readily apparent from the program flow 

chart. Note that this is the only time to obtain a 


hard copy of the raw and scaled probe and blade data. 


Currently a program does not exist to print the data 
from_an arbitrary file in the tabulated format produced 
by the ACOUIRE program. 


20. The last step in program "ACQUIRE" is the option 
of terminating the program by pressing GO ON or loading 
the reduction program "CALC" by pressing CALC. If the 
Gata collected is to be reduced at a later time, then 
GO ON is the correct choice. Later, when the user is 
ready to reduce the data, program "CALC" is executed by 
following steps 5 and 6 except type 
/CLASSICK/PROGS/CALC; press RETURN, then press soft key 


RUN. 


21. Once "CALC" is executed, the first prompt that age 
pears is “ENTER THE NAME OF THE FILE CONTAINING THE 
PROBE DATA SCALED TO ENGINEERING UNITS." This is the 
scaled data file produced during the execution of 
WACOUDRE au A new file is not being created at this 


time - the entry allows "CALC" to reduce the data in 


82 


SCAN NUMBER 


FORT VOLTAGE BUAGE FRESS( INCHES H2o) 
1 1.@00E-@6 1.Q@00E-82 
2 9.008E-04 8.998E+00 
S 1.206E-203 1.205E+01 
4 -3.3B0E-04 -3.390E +00 
5 -1.@48E-@4 -1.058E +00 
6 2.380E-25 2.2B80E-01 
7 8.Q00E-05 7.900E-01 
8 9. 7B@E-@5 9.680E-01 
3 8.300E-05 8.200E-01 

1@ 6.240E-05 6.140E-O1 

1 8.260E-@5 8.16@E-01 

12 7.260E-@5 7. 160E-O1 

13 8.500E-05 6. 400E-01 

14 1.712E-@4 1.702E +00 

15 2.334E-04 2.324E +00 

16 2.144E-04 2.134E+00 

17 1.334E-04 1.324E +00 

18 1.728E-04 1.718E+00 

19 2.270E-04 2.260E +00 

A 3.804E-04 3.794E+00 

21 4.674E-04 4.664E+00 

22 6.B96E-@4 6.886E+00 

23 -1.709E-03 =I 71OE+0) 

24 =32595C-056 -3.334E+01 

25 -3.202E-@3 -3.203E+01 

26 ae, 71 9E-O5 =2. (OME +O k 

SAMPLE EXCEEDED MAXIMUN DEVIATION ALLOWED-SAMPLE RETAKEN 

27 -2.068E-203 -2.@69E+01 

28 —Iaoole 05 =1565ZE+01 

Zo -1.411E-03 -1.412E+01 

30 =1.258E-03 =i, coue +O) 

a -1.043E-03 -1.@44E+@1 

2 -8.212E-O4 -8.222E +00 

33 -~6.908E-04 -6.918E+00 

34 -5.584E-04 -5.594E+00 

35 -4,712E-04 -4.722E+00 

36 -4.158E-04 -4,168E+00 

37 -3.784E-04 -3.794E+02 

38 -~3.608E-04 -3.618E+00 

Be, -3.350E-04 -3.360E +00 

4Q =3.252E-04 -3.242E+00 

41 -3.Q68E-04 ~3.078E +00 

42 =2.92ce-04 =2 doe +00 

43 3.334E-04 3.324E+00 

A4 ~9.170E-@4 -9.180E+00 

45 -3.214E-04 -3.224E+00 

46 1.446E-04 1.4366 +00 

47 9.420E-05 9.320E-O1 

48 -2.656E-@4 -2.666E +00 


JiR. ooo eee eee RRR RRR EER ERE REE RRR E RRR EEE ERE ERS | 


IS DATA OK? PRESS "REPEAT" TO REPEAT THE SCAN, PRESS “RECORD” 
TO RECORD THE DATA. 


Ra R RRR RRERERRERRERER RR ERE RE RR ERERE RRR RRR RRR R RES ERE RARER RRR RERSR ESSERE SE 


Figure B5. Data Printed on the Screen - 
Instrumented Blade Scan 
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the scaled data file to useful engineering quantities. 


Type the file name, e.g., L-4SEPASCL. Press RETURN. 


22. The next two prompts are to allow "CALC" access to 
the probe calibration coefficient file - one for X and 
one for Phi. For this study the X file was MIKEC3 and 
the Phi file was MIKEC2. Type these file names in at 


the prompt followed by RETURN. 


23. The one or two probe option appears next. The 
difference between the two choices, iS in the prompts 
displayed. Two probes require two additional 
calibration coefficient files to be accessed - hence 
the prompts for the upper probe coefficient file for 


% “anc Pini. 


24. The prompt “ENTER THE FILE NAME FOR THE DATA TO eee 
CALCULATED FROM THE PROBE," requires the user to create 
anew file for the data about to be reduced from the 
scaled data file. Type the file name, e.g., L- 
4SEPACALC. Press RETURN. Note that for the two-probe 
Survey, an additional file must be created for the 
second probe, even though only one scaled data file was 


created in "ACQUIRE" for either a one or two-probe 


Survey. 
255 The next prompt will remain on the screen until 
the REDUCED DATA soft key is' pressed. It is assumed 


that the "CALC" program would not be executed unless a 
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hard copy of the reduced data were desired, hence, no 


other options are available. 


26. The option to calculate the mass averaged co- 
efficient of pressure from the instrumented blade 

data appears next. Pressing GO ON bypasses this 
calculation. Pressing BLADE CP’S prompts the user for 


additional information. 


27. As in step 21, type in the scaled blade data file, 


eee) S-45EPASCL. Press RETURN. 


28. As in step 24, type in the name of the file to be 


created for the blade C,’s, e.g., B-4SEPACALC. Press 


e 
RETURN. 


29. The next prompt requires the user to supply the 
limits of integration for the probe survey file entered 
meat the beginning of "CALC" e.g., L-4SEPASCL. This 
file contains data for the blade-to-blade survey 
upstream at midspan, which is the inlet condition to 
the instrumented blade. (The taps are located at 
midspan.) Quantities obtained from the blade-to-blade 
scaled file and reduced file are mass averaged for the 
Cy calculation as shown in Table I. fie limites of 
integration are determined by noting what the beginning 
and ending scan numbers are. In the case of 


L-~4SEPASCL, the first scan was 1 and the last scan, 31. 


For "ENTER THE LOW SCAN", type 1. Press RETURN. For 


oo 


"NENTER THE HEGH@SCAN ty oomeun Press RETURNVaier— 
that it is not the position that is entered, but the 
scan number corresponding to the position that is 
entered. Additionally, the integration limits can be 
over a shorter interval than the entire length of the 


survey if desired. 


30. The prompt to print the blade C,‘s appears once 


the computer completes the Ch calculatnons. 


31. The final prompt in "CALC" allows the user to ter- 
minate the program by pressing GO ON or to execute 
program "LOSS" by pressing LOSS. To calculate the AVDR 
and loss coefficient, requires an upper and a lower 
blade-to-blade survey. The execution of "LOSS" at this 
point would not be appropriate unless the user has a 
reduced file for an upper and lower blade-to-blade 


Drose Survey. 


32. If program "LOSS" was not executed by pressing 
the LOSS soft key in step 31, then it can be executed 
by pressing Ehe LOAD soft key and typing 
/CLASSICK/PROGS/LOSS between the quotation marks and 


pressing RETURN. Press the RUN soft key. 


The static pressure rise coefficient, AVDR and 
loss Coch irclent are calculated from quantities 
contained in the reduced files of the upper and lower 


blade-to-blade surveys as shown in Table I. The 
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entries for the prompts provide the program access to 


mie reaucea data files? 


Poe) the prompt “ENTER THE NAME OF THE FILE CONTAINING 
THE CALCULATED DATA FROM THE LOWER PROBE" requires the 
user to enter the file name for the lower probe blade- 
to-blade survey data that was reduced in "CALC" e.g., 


L-4SEPACALC. Press RETURN. 


34. The next prompt pertains to the upper probe blade- 
to-blade survey reduced data e.g., U-4SEPACALC. Press 


PeluRN: 


35. Integration limits for the lower probe blade-to- 
blade survey are requested next. As noted in step 29, 
it 1s the scan number corresponding to the lower limit 
ef the integration interval that is entered for "ENTER 
fae FIRST POINT." Likewise, the scan number for the 
upper limit of the integration interval is entered for 


BEN TER THE LAST POINT." 


36. Limits of integration, in terms of scan number, 
are requested again for the upper probe blade-to-blade 
survey. 

Note that the upper and lower integrations must be 
the same, exact, integral number of blade spaces 
(usually one), but the number of scans to cover the 
Same distance will probably be different. Tite ts 


vitally important to ensure that correct scan numbers, 
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match desired integration limits when the integration 


interval is something other than the beginning and 


ending of a blade-to-blade survey. 


37a The calculations are performed and the static 


pressure rise coefficient, AVDR and loss coefficient 


are printed on the screen; the program then terminates. 


BS. 
BS.) Introdmerion 


Common errors germane 


ouclined mm thasesectaon- 


covered rather than broad 


Errors 


categories of errors. 


COMMON ERRORS AND RECOVERY STEPS 


to the program execution are 


for each program are 


Specific 


recovery steps are given which, in some cases, require 
knowledge of the program structure. Since probe surveys 
are time consuming, it behooves the investigator to be 


familiar with the program. 
rectified by stopping the 

Speciitc line inweie 
three main programs should be 
listing of the programs may 
steps outlined in Section 
specific recovery step cannot 


to Ref. 13-17. i 


complete 
system errors can be found in 
While not specifically an 


execuETon, 


The Mass Storage Is or MSI command (addressed in Ref. 
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program, 


program. 


BG. 


the new user may become 


A mistake in many cases may be 


then continuing at a 


To this end, a copy Of tie 


available during a survey. A 
be obtained by following the 


In those cases where a 


be made, the user is referred 
listing and description of 
Ret aaelo. 

error associated with program 
lost in the directors 
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in conjunction with a path name, allows the user to move 
through the directory levels. The command MSI"/" places 
tne system in the root directory while the command 
MSI"/CLASSICK", places the system in the CLASSICK directory 
which 1S subordinate to the root directory. Executing any 
of the three main programs by following the steps in 
Section B4 will initially place the system in the PROGS 
Subdirectory. As the program runs, the subdirectory will 
change to facilitate entry of the various file names. In 
all cases when the programs have terminated, the system is 
in the REDDATA subdirectory. The program can be repeated 
even from this subdirectory by pressing RUN. However, if 
the user decides to move somewhere else in the directory, 
the MSI command and path name must be used. AS an example, 
upon "CALC" termination it is desired to execute "ACQUIRE." 
The command MSI "/CLASSICK/PROGS" puts the system in the 
PROGS subdirectory. “ACQUIRE"™ can then be loaded from the 
Subdirectory PROGS by pressing LOAD and typing ACQUIRE 
between the quotation marks. 

Alternatively, “ACQUIRE" could have been loaded from 
Subdirectory REDDATA by pressing LOAD followed by typing 


" /CLASSICK/PROGS/ACQUIRE". 


pio. ACOULRE 


1. Errors Involving File Names 
These errors will most likely be the result 
of either attempting to enter a file name which exceeds 
twelve characters or entering an undesired file name. If a 


ohe, 


system error is returned while attempting to enter a file 
name and it 1S suspected that the name exceeded twelve 
characters, reenter the file name using twelve characters 
or less. Refer to Ref. 16 for other system errors. 
Undesired file names which have been entered 
into the system i.e., the file was created, can be handled 
in different ways. Assuming no data had been collected, 
the program could be aborted, the undesired file name 
purged and the program reexecuted: The steps for this 


would be: 


a. Press STOP (This is a labeled key on the top row). 
b. Type MSI "/CLASSICK/SUBDIRECTORY NAME" (subdirect- 
ory name is either DATA for rawdata files or REDDATA 
for scaled or reduced data files). 

GC. RETURN 


ad. Type PURGE "UNDESIRED FILE NAME" (include quotation 
marks). 


e. RETURN 
i Press LOAD 


g. Type /CLASSICK/PROGS/ACOUIRE between guotation 
marks. 


ho wink ecRh 


1. Press RUN 


Alternatively, the program could be run with 
the undesired file name and the name changed after ter- 
mMinating "ACQUIRE." The steps for this would involve 
writing a short progran. 


2. Incorrect Atmospheric Pressure Entry 
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The required steps are as follows: 


a. Press STOP 
b. Type Pbaro = CORRECT VALUE 
on RETURN 


Cie Press CONTINUE 


3. Incorrect Probe Option Selected 


The required steps are as follows: 


eee Eress STOP 
b. Type CONT 145 
[Line 145 is the line number which the 
program would have to return to in order to generate 
the probe option prompt again. ] 
een” RETURN 
4. Incorrect Scan Number or Probe Position 
Entered 
Upon pressing RECORD, an error statement 
will be returned if the scan number was entered out of 


sequence. This will prevent the data from being stored. 


Take the following steps: 


mo eress STOP 
b. Type CONT 162 for a one probe survey 
c. Type CONT 160 for a two probe survey 
{These are the line numbers in the program that 
return the prompt for entering the scan number and 


Basition. } 


eee RETURN 


ol 


An incorrect position entry will not rerum 
an error statement. A correction to position can be done 
using a version of program "correct" after completion of 
the survey. 

5. Premature Termination of Data Collection 

If END PRB DATA was mistakenly pressed, the 

ability to continue with probe data collection can be 


regained by these steps: 


a. Press STOP 
b. Type CONT 162 for a one probe survey 
c. Type CONT 160 for a two probe survey 


a. RE PURN 


6. By-passed Collecting Blade Data Mistakenly 


The required steps are as follows: 


Qa. Press STOP 


b. Type CONT 357. [This line number returns the blade 
data collectron option prompe. } 


Gc. KEIURN 


7. By-passed Hard Copy Print Options Mistakenly 


The required steps are as follows: 


ac Press STOP 


b: Type CONT 408. [Line 408 is the beginning of the 
hard “Copy <OpE16n Dronpes. | 


Cc. RETURN 


ow 


BS oe ec ALC 
ene Oiitect Fille bntered 
The "CALC" program will reduce any scaled 
data file obtained from "ACQUIRE." If an undesired file 
name was entered, abort the program then reexecute it 


using the following steps: 


aoe T ess STOP 


lon Press RUN 


peeutnecOrrece Proce CoOcrtriclent File bntered 


The required steps are as follows: 


a. Press STOP 


b- Type CONT 144. [Line 144 will return the prompt 
for entering the X velocity coefficient file. ] 
Cc. RETURN 

3. Incorrect Probe Option Selected 


The required steps are as follows: 


a. Press STOP 


op Type CONT 200 {Line 200 returns the probe option 
Prompt. } 
ao RETURN 

4. Incorrect Reduced Data File Name Entered 


"CALC" is short enough to allow termination 
and reexecution of the program in order to enter the 
correct desired file name for the reduced data. The steps 


jormao this are: 
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a. Press STOP 


b. Press RUN 


The undesired file name can be purged from 
the REDDATA subdirectory by following the steps in 
paragraph "1" of Section B5.2. If "CALC" is to be executed 
after the purge operation, press LOAD and type 
/CLASSICK/PROGS/CALC between the quotation marks. Press 
RETURN followed by pressing RUN. 


5. By-passed Blade C, Calculations Mistakenly 


le 


The required steps are as follows: 


a. Press STOP 


b. Type CONT 736. [Line 736 returns the blade Cp 
calculation option) 
C..  KEEURN 

6. Incorrect Limits of Integration Entered 


Unless the limits entered are non existent, 
no error will be returned--only erroneous data if the 
limits are wrong. If the Cp values do not look correct, 
the calculation can be repeated if the integration limits 


are suspected to be in error. Perform the following: 


a. Press STOP 


b. Type CONT 736. [This will return the blade C 
calculation option. A new reduced blade data filé name 
will have to be entered since the previous file name 
contains the suspect C,reduced data. This suspect file 
can be purged following the steps in paragraph 1, 
SECTION Boe al 


cz RETRY 
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BS... 4. LOSS 
MEOss.' 1s EaScRObtENDEOOram;, any errors in 
entering the prompted entries can be handled by terminating 


the program and starting again. The steps are: 


a. Press STOP 


len Press RUN 


B6. MODIFICATIONS 
pore nt roduct ion 

The programs were written to accomodate changes 
that might be expected to occur in the equipment set-up of 
the cascade facility. Variables defining scanner channel 
assignments, HP-IB equipment addresses and other variables 
that might change as the investigations are modified were 
placed at the beginning of the program. hus eae Such 
changes are made in one section of the code. Those 
variables embedded in the program such as temperature, yaw 
and position are cited by line number to allow modi- 
fications to be made in the way they are evaluated. Array 
elements were redefined when necessary. Changes to array 
elements require familiarization with the program 
structure. All changes should be followed up with a 
revalidation of the modified code prior to acquiring new 
Survey data. 

Program modifications are made and their effects 


evaluated best by examining a hard copy of the program. 
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Obtain a copy of any program in the PROGS subdirectory by 


performing the following steps: 


a. Type MSI"/CLASSICK/PROGS" 

be RETURN 

c. Type CAT [This will list all the programs or files 
in the PROGS subdirectory. After identifying the 
desired program, proceed with the next step. ] 


ad. Type PRINTER IS 701 [Output is now directed to the 
Printer] 


e. RETURN 
f. LOAD "DESTRED PROGRAM*® 
g. RETURN 

Type ofS 


i. RETURN (The program will now be printed. ] 


Note that after the program iS printed, return the system 
to print on the screen by typing PRINTER IS 1, followediiiag 
RETURN. 

Once the changes have been identified, refer 
to Chapter 11, of Ref. 13 to edit and store the modified 
progran. 


B6.2 Common Changes 
In "ACQUIRE® the common variables that might be 


changed are listed in the front of the program along with a 
plain langauge description of what the variable represents. 
It is assumed the user will understand the rudiments of the 


acquisition system prior to making any variable changes. 
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B6.3 Temperature, Yaw and Position Changes 
The variable Temp on line 245 of "ACQUIRE" is 


defined by an equation that represents the characteristics 
of the iron-constantan thermocouple used in the present 
work. This equation will change if the thermocouple 
changes. Edit this line with appropriate changes to 
account for a thermocouple change. 

Referencing the yaw angle to a precisely known 
horizontal or vertical axis as outlined in Appendix C 
requires a correction to the yaw transducer output. Tp 
correction can be made in "ACQUIRE" by modifying line 240 
for a one probe survey or lines 207 and 212 for a two probe 
survey. An alternative to this would be to modify "CALC", 
Change line 626 for aoone probe survey; change lines 359 
and 491 for a two probe survey. 

Incorporating the use of linear potentiometers 
for probe position read-out iS a more extensive mod- 
ification to "ACQUIRE" which will be briefly summarized for 
a one probe survey. A scanner channel for the potentio- 
meter transducer must be assigned and this channel defined 
by a variable name. The variable must be included in the 
COM statement on line 169 and in line 754 of the subprogram 
"Readdvm"™. A CALL statement similar to that listed for the 
Yaw and Temp channel readings on lines 238 and 242, 1s 
required. A statement allowing the transducer channel to 
be read by the DVM must be included in the IF-ELSE 


structure of “Readdvm". Array elements presently defining 


2) i) 


probe position must be modified if necessary and traced 
tChrevgiee CALCY . 
Be.4 Array Elements Changes 

In "ACQUIRE," ~Scanival ve pom readings, in 
addition to other quantities are assigned an array element. 
A change in an array element assignment may require a 
change in the formatted print statements and headings. 
Additionally, since array elements are redefined during the 
execution of the three main programs, a trace through those 
programs 1s necessary to ensure that any changes in array 


element assignments are consistent. 


B.7 PROGRAMS AND DATA 

A complete listing of the program and data files is 
given in the Table of Contents for Appendix BB. The three 
main programs have been previously explained. The listed 
Subprograms are called by the main programs from the 
ROUTINES subdirectory during execution. The plot programs 
are specifically those used to plot some of the data in the 
present study. The following is a list of the figures 


corresponding to the plot program written tone se. 


Program Figure 
PREFPOREF 18 
BEZAPOST. 1S, 
VVREFSPAN 8 
VVREFUSPAN A 
CPBLADEPLOT 25 
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Plots are printed to the printer by pressing DUMP 
GRAPHICS. Samples of the programs to correct erroneous 
data points or to rereference the probe-displacement are 
imeluded . "CORRECT A" (Section B7.12) was used to 
extrapolate the recorded data to add an additional scan. 
This was done to enable data to be integrated over exactly 
one blade space. The artificially generated scan does not 
appear in Table B4 but does appear in Table B5. TeORRECT 
B" (Section B7.13) provided the means to correct an 
incorrect value of probe position entered during a scan. 
The corrected value then appears in Table B5. "CORRECT Cc" 
(Section B7.14) was used to rereference displacement values 
of file SUS-4SEPASCL (example not included) to make the 
midspan position equal to zero. 

The probe calibration coefficients were stored ina 
file using "PRBCOEF" (Section Bye>)) with actual 
coefficients in the DATA statement in lieu of those in the 
example. Note that the DATA statement must contain 36 
entries to be consistent with the way the file is used in 
fae program "CALC." 

The remainder of the tables have been previously 


addressed. 


oe 


B7.1 Acquisition Program ACQUIRE 


IPROGRAM ACQUIRE 
ITHIS FROGRAM ACQUIRES DATA FROM S-HOLE PROBE SURVEYS ANO PRESSURE 


fOISTRIBUTION FROM AN INSTRUMENTED BLADE. SEE CLASSICK M.S. THESIS 
1SEPT 89 FOR PROGRAM OESCRIPTION ANO DETAILS. 


fevsesseveeveezeee¢e¢e¢¢ DIMENSION ARRAYS eeeeeeeeeeveregcacveveservacreae 


OPTION BASE 1 


DIM Rawdat(!,106) 


DIM Scaled(t,1@6) 


DIM Prntdata( t ,4B) 
DIM Prntdatb(1 ,48) 


MAT Prntdata= (86) 


MAT Prntdatb= (6) 


feaesvverveeececerseovees YARTABLES eeeeeeeoreevesesevenegaereesavaesesenee 


Dport=1 
Hnorte14 
Dnorta=1 


Hpor ta=48 
Doortb=1 


Hportb=19 
Scntempchn=1@ 
Scnyawchn«=24 
Scnyawchnl=<24 


Scnyawchnu#2!/ 


Scnval 
Scnvb=2 
Scn=709 
Svce=707 
Ovm=722 
Scenrdsvc*l 


Scnrdsvcas@ 


Senrdsvcb=! 


Scnstpsvca=4@ 
Scnstpsvcb=4] 
Scnhmsvcas4S 
Scenhmsvcb=46 
Maxdif=,@eeeS0 
Prnter=7@1 
Scren=} 


IBASE OF ARRAY WILL BE ONE INSEAO OF ZERO 

HTHIS ARRAY WILL ACCOMOOATE BOTH 48 PORT 
ISCANIVALVES AND #@ CHANNELS FROM THE SCANNER 
1FOR A TOTAL OF #@6 COLUMNS OF OATA. 

FARRAY USEO IN PRINTING PROBE & CASCAOE PRSSURES 
(TO SCREEN 

FARRAY USED IN PRINTING BLADE PRESSURES TO SCREEN 


FINITIALLY FILLS ARRAY WITH ZEROS-IF ENTIRE ARRAY 
11S NOT FILLED WITH DATA, THEN REMAINOER OF ARRAY 
MWILL CONTAIN ZEROS. 


(OESIREDO PORT. IT IS DESIREO THAT THE SCANIVALVE 
1BEGIN AT PORT 1t. 

tHI6H PORT. LAST PORT ON THE SCANIVALVE THAT IS 
1OF INTEREST. 

ISAME AS ABOVE EXCEPT IT PERTAINS TO SCANIVALVE 
FRESERVEO FOR INSTRUMENTED BLAOE SURVEY. 

FALL PORT USEO ON THE BLADE SURVEY 

fIN TWO PROBE SURVEYS, MORE PORTS ARE USED-THE 
IDOESIREO PORT IS STILL 1. 

1LAST PORT OF INTEREST FOR TWO-PROBE SURVEYS. 
ISCANNER CHANNEL ASSIGNED TO THERMOCOUPLE 

tee E és " YAW TRANSOUCER. 

ie 5 : " LOWER PROBE YAW 
1TRANSOUCER FOR TWO-PROBE SURVEYS. 

SCANNER CHANNEL ASSIGNEO TO UFFER PROBE YAW 
1TRANSOUCER FOR TWO-PROBE SURVEYS. 

ISCANIVALVE USEO FOR INSTRUMENTED BLADE. 

| a ; "PROBE 8&8 CASCADE PRESSURES. 
'SCANNER BUS ADDRESS 

ISCANIVALVE CONTROLLER BUS ADDRESS (H6-78K ) 
1OIGITAL VOLTMETER BUS ADDRESS 

ISCANNER CHANNEL ASSIGNED TO READ SCANIVALVE 
ICONTROLLER (SCANIVALVE READ IS THE ONE FOR 
IPROBE ANO CASCADE PRESSURES. ) 

ISAME AS ABOVE EXCEPT THE SCANIVALVE READ IS FOR 
ITHE INSTRUMENTED BLADE PRESSURES 

ISAME AS ABOVE EXCEPT SCANIVALVE REAO IS THE 
FONE FOR PROBE & CASCADE PRESSURES WHEN 2-PROBE 
fOPTION IS SELECTED. 

ISCANNER CHANNEL ASSI6NED TO STEP SCANIVALVE A 
_ “ “ . ° = B 
ISCANNER CHANNEL ASSI6NEO TO HOME SCANIVALVE A 
; . ° ° ° . B 
TERROR TRAP FOR SPURIOUS DVM READINGS. 

1BUS ADDRESS FOR PRINTER 

'BUS ADDRESS FOR MONITOR 


LOAOSUB ALL FROM °/CLASSICK/ROUTINES/SUBACQUIRE“ 


MASS STORAGE IS °/CLASSICK/DATA° 


fALLDWS RAW DATA FILE NAME TO BE ENTERED 
'AT THE PROMPT WITHOUT PATHNAME 


PRIN] “ee eee rece esas EOPOEFECEEEEFEFEETFEEFEFHFEREF ER ERED FBR CERE” 


FRINT =~ 


FRINT “NAME FILE FOR THE RAW DATA TO BE COLLECTEO FROM THE PROBE(S)° 


INPUT Rawfiles 


CREATE BOAT Rawfile$S 100,848 fRAWFILES 15 A STRING VARIABLE ASSIGNED 


1THE RAWFILE NAME TO BE ENTERED AT THE PROMPT. 
1THIS FILE IS 1@@ RECOROS (ENOUGH FOR 10@ OATA 
1POINTS) EACH RECORO CAN CONTAIN 1@6 REAL 
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127 INUNGERS 6X106=648. 
12B ASSIGN @Pathi TO RawfileS {ASSIGNS A PATH NAME TO THE RAW FILE JUST 


129 ICREATED FOR ENTER AND OUTPUT STATEMENTS. 
130 MASS STORAGE IS “/CLASSICK/REODATA“ 
132 PRINT “eee eee eee eee et POPP H HEHEHE HH HHHHEFH HEF HHHHH HOF H FHC OH OR HE REE” 


133 PRINT °*" 

134 PRINT “NANE FILE TO STORE THE RAW DATA SCALEO TO ENGINEERING UNITS" 

13s INPUT Sel ftle$ 

136 CREATE BOAT Sclfile$ ,100,648 

137 ASSIEN @Path2 TO ScI files 

136 PRINT “8 ee eee R OHHH HHH HHHHCOHHCHHHOHHEHEHEHEHOTHOHOH HOHE C HH HHH RHE R EOE 
139 PRINT °* 

148 PRINT “ENTER THE ATMOSPHERIC PRESURE IN INCHES H6° 

141 INPUT Pbaro 

142 PRINT °° 

143 PRINT “eee eee ee O eee HORE HE HOPE EHEHEHEEHHEFOEHFPHORHEH EF EHHORHOHE RH OOEHH OR” 
144 PRINT °° 

14S PRINT “PRESS “ONE FROBE"* IF ONE PROBE IS USEO.* 

146 PRINT “PRESS °*TWO PROBES** IF TWO PROBES ARE USEO.* 


147 FRINT 

1486 FRINT “Se ee eee H HEHEHE H OEE EEEFEHHEEHEFHPROPEHER HEHEHE REE E RHO H OHO” 

149 PRINT °° 

152 ON KEY 1 LABEL “ONE PROBE" GOTO Numberprbs! {CODING FOR SOFT KEYS 

iS! ON KEY 4 LABEL “TWO PROBES" 60TO Numberprbs2 

1S2 Spini: 60T0 Spinl (KEEPS SOFT KEY LABELS ON SCREEN UNTIL 
1S3 fEITHER SOFT KEY IS PRESSED. 

154 Numberprbs |: Noofprbs=l INUMBER OF PROBES OETERMINES WHERE TO 

15S 160 IN THE PROGRAM. 


1S7 6OTO Checknoofprbs 

1SB8 Numberprbs2: Noofprbs=2 

159 Checknoofprbs: IF Noofprbs=2 THEN 

16@ Start2prbs: INPUT “ENTER THE SCAN NUMBER, LOWER PROBE POSITION AND UPPER P 
ROBE POSITION" ,Scan,Positl ,Positu 

161 ELSE 

162 Starttprb: INPUT “ENTER THE SCAN NUMBER ANO PROBE POSITION’ ,Scan,Posit 

163 PRINT °° 


164 PRINT “@@ eee eee eee PROPOR HHH EERE EHHEH EEE HOE HEPFOROH HEPES SORE HEHHEH EEE E EE” 
16S.) END IF 

166 COM /PositvrbIs/ Svc ,Scn 'CONMNON BLOCK VARIABLES USEO IN POSITIONING 
167 'THE SCANIVALVE PORTS. 


169 COM /ReadvrbIs/ Scan,Ovm Scanvb(! 486), Tempchnrd,Yawchnrd ,Scenyawchn,Scntemp 
chn ,Senrdsvcb ,Scanval(l ,486) Senrdsvca ,Noofprbs ,Yawchnrdu ,Scnrdsve 
172 COM /ReadvrbIs/ Yawchnrdl ,Scnyawchnu ,Scnyawchn! ,Maxdif 


171 1ABOVE COMMON BLOCK VARIABLES USED IN 
172 1OBTAINING OVUM READINGS. 

174 IF Noofprbs=2 THEN 

175 BOTO Read2prbs 

176 ELSE 

177 60TO Readtprb 

178 ENO IF 


179 Read2prbs:FRINT “SCAN NUMBER’ {Scan 

168 PRINT “LOWER PROBE POSITION’ 1Posit! 

181 PRINT “UPFER PROBE POSITION’ i Positu 

162 PRINT “PORT VOLTAGE GAUGE PRESS( INCHES H2o0) ° 
163 MAT Scanvb= (0) 

164 FOR Ob=Dportb TO Hportb 


165 CALL Scnvportposit(Scnvb ,Db ,Scnhmsvcb ,Scnstpsvcb) ICALLS SUBROUTINE 
186 1T0 POSITION SCANIVALVE PORTS. INITIALLY IT WILL 
167 IPOSITION SCNIVALVE 10 PORT 1}. 

189 CALL Readdvm(0b ,Scnrdevcb ) 1CALLS SUBROUTINE TO READ THE 

192 [THE SCANIVALVE PORT READINGS ON 
191 1THE OVUM. 

193 Prntdatb( 1,1! )=Scanvb( 1,1 )#18000 ICONVERTS OVM READINGS TO PRESSURE 
194 IVALUES. 

196 IF Ob>! THEN Prntdatb( 1 ,0b)=Scanvb(1 Db )#10000-Prntdatb(!,1) ALLOWS 

197 IPORT §! READING TO BE SUBTRACTED 


LOD 


1FROM OTHER READINGS. 


198 

200 FRINT USING °00,1@X ,MO.3DE ,1@X .MD.30E°:0b ,Scanvb(! ,Db) ,Prntdatb(! ,0b) 

2@1 NEXT Ob - 

202 CALL Readdvm(0b ,Scnyawchn! ) {0b IN THIS CONTEXT ACTS AS A DUNNY 
203 1VARIABLE. OVM READS THE LOWER PROSE YAW TRANSOUCER. 
204 CALL Readdvm( Db ,Scnyawchnu ) 1UPPER PROBE YAW TRANSOUCER IS READ. 
205 PRINT “ee eeeeeeeeeeeeeeaeereneeeereeeeeeeeeeecereoeeeerreseee® 

206 PRINT “LOWER PROBE YAW CHAN READING "sYawchnrdl 

207 Yawl*Yawehnrdl «1600 (THIS IS WHERE THE REFERENCING 

208 ICORRECTION FOR THE YAW ANGLE IS MADE 
210 PRINT “LOWER PROBE YAW (DEGREES) "tYaul 

2tt PRINT “UFPER FROBE YAW CHAN READING “sYawchnrdu 

Ze Yawu*Yawchnr du? 1000 IMAKE THE REFERENCING CORRECTION FOR 
213 . {UPPER PROBE YAW ANGLE HERE. 

21S PRINT “UPPER PROBE YAW (DEGREES) “sYawu 

216 60TO Continue 

217 Readiprb:PRINT “SCAN NUMBER"?Scan ICDODING FOR READING ONE PROSE BEGINS 
218 PRINT “PROBE POSITION"sPosit 

£19 PRINT “PORT VOL TABE GUAGE PRESSURE( INCHES H2o0)° 

220 MAT Scanvb= (@) 

22! FOR O=Dport TO Hport 

Cee CALL Scnvportposit(Scenvb ,O ,Scnhmsvcb ,Scnstpsvcb) 1CALLS SUBROUTINE TO 
Zea IPOSITION SCANIVALVE PORT. 

225 CALL Readdvam(0 ,Scnrdsve) ICALLS SUBROUTINE TO READ SCANIVALVE PORTS 
226 (ON THE OVM. 

228 Prntdatb(1 ,l)=Scanvb( 1,1 )¢10000 ISCALES OVM READINGS TO 

223 1T0 ENGINEERING UNITS. 

231 IF O>1 THEN Frntdatb(!? ,D)=Scanvb(! ,0)¢10000-Prntdatb(!t ,1) ‘PORT | 

232 IREADING SUBTRACTED OFF THE SCANIVALVE 
oa3 1PORT READINGS. 

235 PRINT USING °00,1@X ,MDO.30E ,10X .MO.30E°s0 ,Scanvb(! ,0),Prntdatb(! 0) 

236 NEXT D 

237 PRINT “eeeeeeee eee eee eee eee PPPOE FEEFEEFeeeeereeeeeereeereeese” 

238 CALL Readdvm(D ,Scnyawchn) 

239 PRINT “YAW CHAN READING “sYawehnrd 

240 Yaw=Yawchnrd? 1800 1THIS IS WHERE TO CORRECT FOR PROBE YAW REFERENCING 
241 PRINT “YAW (DEGREES) “+Yaw 

242 Continue:CALL Readdvm(O0b ,Scntempchn) 

243 PRINT “TENP CHAN READING “tTempchnrd 

244 T=Tempchnrde 1000 

245 Temp233.91¢T+34.25+460 1 IRON CONSTANTAN THERMOCOUPLE EQUATION 
246 1SAME ONE USED BY OREON. 

248 FRINT “TEMPERATURE (DEGREES R) “sTemp 

249 Fa=Pbharoel3.S$7 fATMOSPHERIC PRESS CONVERTED 10 INCHES HZ2o 
250 PRINT USING “26A,4X ,20.20,X ,44,SX ,30.20 ,SA°s “ATMOSPHERIC PRESS (INCHES )* ,P 
baro,"(Hg)" ,Pa,"°(H2o0)* 

251 PRINT =* 

282 PRINT “#eeeeeeeecereeeeeeeeeeeeeeeeeeeeeseeeeceeeeseeeeceoccoreseeesesee” 
2535 PRINT “* 

254 FRINT “IS DATA OK? FRESS ""“RECORO"* TO RECORD DATA, PRESS “°REPEAT"" TO° 
Paps he) PRINT “REFEAT THE SCAN.” 

256 PRINT °° 

257 PRINT “ee ee eee eee eee eee eee REPEC HOTT HHEHECECECC RC REHEREFOEREFEE CE RECCCE" 
258 ON KEY ft LABEL “RECORD” 6G0TO Storerawdata 

259 ON KEY 4 LABEL “REPEAT” 60TO Repeatscan 

26@ Spinz2: 60T0 Spin2 

261 Repeatscan: IF Noofprbs*=2 THEN 

262 60TO Start2prbs 

263 ESE 

264 60T0 Startiprb 

26S ENO IF 

266 Storerawdata: | STORE RAWOATA TO RAWDATA FILE 

267 IF Noofprbs#2 THEN 

268 MAT Rawdat= (6) 

269 FOR Kel TO 19 

270 = Rawdat(1,K )=Scanvb(t ,K) TASSIGN ALL THE SCANIVALVE READINGS IN THE 
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NEXT K 

Rawdat(! ,.20@)=Positl 
Rawdat(! ,21! )Positu 

Rawdat(! ,22)«Yawchnrdl 
Rawdat(! ,23)*Yawchnordu 
Rawdat(! ,24)=Tempchnrd 
Rawdat(! ,25)ePa 

OUTPUT @Path! ,ScaniRawdat(* ) 


MAT Scaled= (@) 
FOR Ke! TO 19 
Scaled(1 ,.K )ePrntdatb(! ,K) 


NEXT K 

Scaled(! ,20)=Positl 
Scaled(! ,21 )ePositu 
Scaled(! ,22 )*Yaw!l 
Scaled(! ,23)*Yawu 
Scaled(! ,24)=Temp 
Scaled(! ,25)9Pa 
OUTPUT OFath2 ,ScaniScaled(*) 
ELSE 

MAT Rawdat= (@) 

FOR K=1 TO 14 


Rawdat( 1 ,K )eScanvb(1 ,K) 

NEXT K 

Rawdat(! ,1S5)#Posit 

Rawdat(! ,16)=Yawchnrd 
Rawdat(! ,17)=Tempchnrd 
Rawdat( 1,18 )=Pa 

DUTPUT @Fath! ,ScaniRawdat(* ) 


MAT Scaled= (@) 
FOR K=1 TO 14 
Scaled(! ,K )=Prntdatb( 1! ,K) 


NEXT K 

Scaled(1,1S)=Posit 

Scaled(! ,16)=Yaw 

Scaled(!/ ,17)eTemp 

Scaled(! ,18)«Pa 

OUTPUT ®@Path2 ,ScaniScaled( +) 
ENO IF 


ISCANVB ARRAY TO THE RAWDAT ARRAY ELEMENT 
IBY ELEMENT 


ITHE DATA IS STORED IN THE RAW DATA 
IFILE WHICH WAS PREVIDUSLY CREATED. 
ITHIS IS A RANDOM OUTPUT STATEMENT. 


ISANE METHOD HERE EXCEPT SCALED DATA 
11S REASSIGNED. 


1FOR THE ONE FROBE OFTION, ASSIGNS 
TALL THE SCANIVALVE READINGS IN THE 
1ARRAY TO THE RAWDAT ARRAY ELEMENT 
1BY ELEMENT. 


ITHE £474 1S STORED IN THE RAW DATA 
IWHICH wAS PREVIOUSLY CREATED. THIS 
11S A RANDOM OUTPUT STATENENT. 


ISANE METHOD HERE EXCEFT SCALED DATA 
11S REASSIGNED. 


PRINT “@ eee eee ee eee SSC ROCF eF HFRS F HF EFHFHHFFHHFFFRFFHT HEBER Ee Ee 


PRINT °° 


PRINT “PRESS °"°60 ON"" TO CONTINUE TAKING DATA, PRESS “"END PRB DATA™”” 
PRINT “TO TERMINATE PROBE DATA COLLECTION.“ 


PRINT °° 


3m Oh nt RRR RRR ER ERREPESEUURS USER ECESERERERESERESECE ESERIES RSEREREESEEES 
ON KEY 1! LABEL “END PRB DATA* 60TO Printfilename 
ON KEY 4 LABEL °60 ON" 6070 Collectdata 


Spin3: 60TO Sptn3 
Collectdata: 


GOTO Start2prbs 
ELSE 
GOTO Startiprb 
END IF 


IF Nooforbse2 THEN 


PRINT “"@ee@eeeeeeeeeeeee Cee eeeeesesesaeesesreeseaeeceeeseeenereaneeeren” 


PRINT ** 


Printfilename: PRINT “RAW PROBE DATA 1S STOREO ° 


FRINT “IN DATA FILE® ,Rawfiles$ 
PRINT 
PRINT “@eeeeceeceeevereeseeesssevenecoaseseesereseaeseasseeaeeeeereseneeenes” 
PRINT]: = 
FRINT “FROBE RAW DATA SCALEO TO ENGINEERING UNITS" 
FRINT “IS STOREO IN REDDATA FILE” ,Scl files 
PRINT °° 
PRINT “eeeevesteseveeeceeevesesccecoeezeceseaeseceseeeeeecseeeeesseeeeeecee” 
PRINT °°" 
PRINT “ENSURE THE PROBE JS CLEAR OF THE INSTRUNENTEO 8LAOE.”° 
PRINT °° 
PRINT “seeeeseevesevevetseeseteeecccceeeseeeeessesaseceaceeeeeeeeeeeeeeene”® 
PRINT °° 
PRINT ° PRESS ““COLLECT DATA*" TO COLLECT DATA FOR THE INSTRUMENTEO BLAOE” 
PRINT “ PRESS “°60 ON" TO CONTINUE WITH THE PROGRAM.” 
PRINT ~~ 
ON KEY 4 LABEL “60 ON" GOTO Printopttont 
ON KEY | LABEL “COLLECT DATA* GOTO Namefila 


Spin4: 60TO Spin4 
Neamefila: MASS STORAGE 1S “/CLASSICK/DATA® ICOOING FOR INSTRUMENTED 


IBLAOE SECTION OF PROGRAM IS SAME AS FOR 
IPROSE SECTION. 
FRINT “seeeseseeeeesesectrsteesessecerereseeesereseseeaseceneesecaeeececeee” 
PRINT °°" 
PRINT "NAME FILE FOR THE RAW DATA TO 8E COLLECTEO FROM THE S8LAOE.” 
INPUT Rawbladfile$s 
CREATE 8DAT Rawbladfila$,100,384 1108 RECOROS, EACH RECORD CAN CONTAIN 
'48 REAL NUMBERS 8X48=384. 
ASSIGN @Path3 TO Rawbladfiles 
MASS STORAGE 1S °/CLASSICK/REODATA*” 
PRINT “eee eee ee eee eee POPPE HEOHEHEHHHCHCHEEHHHEHEHHH HOCH HR FREE ECHOES ES®S 
PRINT °° 
PRINT “NAME FILE FOR THE RAW 8LAOE DATA SCALED TO ENGINEERING UNITS.° 
INPUT Sclibladfile$ 
PRINT °° 
PRINT “eeeeeceseseceeesecarcereceseaesecaoaecccoceosnseaesenaeceeecoaeseoneecerneece” 
CREATE BOAT Sclbladfile$ ,100 ,384 
ASSIGN ®@Fath4 TO Sclbladfile$s 


Bladeread: MAT Scanvas (6) 


FRINT “SCAN NUNBER" Scan 

FRINT “FORT VOLTAGE GUAGE FRESS( INCHES H20)° 

FOR Oa=Oporta TO Hporte 

CALL Scnvportposit(Scnva,0a ,Scnhmsvca ,Scnstpsvca) 

CALL Readdvm(Da ,Scnrdsvcea) 

Prnidata(! ,Oad=Scanva(! ,0a)e10000 

1F Da>1l THEN Prrnitdata(! 0a )=Scanval(l 0a )¢180000-Prntdata(!,1) 

PRINT USING °00,10X ,MO.30E ,10X ,NO.30E°10a ,Scanva(! Da?) ,Prntdata(! ,Da?) 
NEXT Oa 

FRINT “eeeeveececeseeceseseceaeececaoaevaecaecaescoeoaceneasaccececoceseeeeeces” 
FRINT °° 

FRINT “IS OATA OK? PRESS ““REPEAT"" TO REPEAT THE SCAN, PRESS ““RECORO"™"” 
FRINT “TO RECORO THE OATA, * 

PRINT "° 

FRINT “eeveeeeeeeceseeceoaseseeesseseeeereseeceececaoccanaoeeesaeececocccoscene” 
ON KEY | LABEL "RECORD" 60TO Storedata 

ON KEY 4 LABEL “REPEAT” GOTO Bladerasd 


Spins: 60TO Spins 
Storedata: OUTPUT @Path31Scanva(*) 


OUTPUT O@Path4;Prntdata(«) 
PRINT “THIS DATA IS ASSOCIATED WITH THE LAST SCAN OF FILE ° ,Sclfile$ 
PRINT °° 


Printoptionl: PRINT “eeeveseveeseceeeeseseccccccasseseseesesecaarecenece” 


PRINT °° 
PRINT “ALIGN PAPER IN PRINTER. ° 
PRINT °° 
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41@ PRINT “TO FRINT OUT A TABULATION OF THE RAW DATA COLLECTED FROM" 


411 PRINT ~~ 

412 FRINT “THE PROBE(S), FRESS “"RAW TABLE“". FRESS “"60 ON""” 

413 PRINT ** 

414 PRINT "TO CONTINUE WITH THE PROGRAM.” 

41S PRINT °" 

416 PRINT “se eteesrrseresserereessrsse seen eeeaeeseeeeeeeeeeeeeeseseRe eae ERE” 
417 ON KEY 1 LABEL “RAW TABLE” GOTO Printrawtable 

418 ON KEY 4 LABEL "60 ON” GOTO Printoption2 

419 Spin6: 60TO Spin6& 

420 Printrawtable: MASS STORAGE 15 “/CLASSICK/OATA" 

421 ASSIGN OPath! TO Raufiles ISTATEMENT PUTS FILE POINTER AT BEGINING 
422 TOPSEILE: 

424 PRINT °" 

425 PRINT "“FRESS "““ONE FROBE"” IF ONE PROBE WAS USEO.” 

426 PRINT “PRESS "“"TWO PROBES"" IF TWO PROBES WERE USED.” 

427 PRINT °°’ 

428 PRINT “eee eer era ree seas ea erase ERPS HEHERPPHPRFERHERFHHH ROPER RHR PRPS ERED” 
429 ON KEY 1! LABEL "ONE PROBE” GOTO Numberofprbs! 

430 ON KEY 4 LABEL "TWO PROBES” GOTO Numberofprbs2 

431 Spin?: 60TO Spin7 

432 Numberofprbs!: Noofprbs#! 

433 60TO Howmanyprbs 

434 Numberofprbs2: Nooforbs=2 


435 Howmanyprbs: IF Noofprbs=2 THEN 
436 PRINTER 15 Prnter ISENOS PRINT STATEMENTS TO THE PRINTER. 
437 PRINT “ese eeeeereeeaseesereseseeennaseseeaseeseeeHenenenane” 
438 PRINT “PROBE RAW OATA FILE “ Rawfties 
439 PRINT “eeeeeareereseaseareeeeasseessesereeeeeeeeareeeoeae” 
440 PRINT “SCAN t PRB 1 2 3 4 
5" 
441 PRINT “ FOSIT" 
442 FOR N=? TO 100 
443 ENTER OFatht Ni Raudat(¢) STATEMENT ACCESSES THE RAW OATA FILE IN 
444 'RANOOM MODE. 
446 ON ENO @Fath! GOTD Twoprintraw! 1SINCE ALL RECOROS OF A FILE MAY 
44? INOT BE FILLEO (RECALL 100 RECORDS WERE 
448 'TRESERVEO FOR 10@ OATA POINTS), THE ON 
449 ‘ENO STATEMENT ALLOWS THE PROGRAM TO 
450 ICONTINUE AT THE Twoprintraw! LINE WHEN 
45] 'AN ENO OF FILE CONDITION OCCURS. 
453 Posttl=Rawdat( 1 ,2@) 
454 Fort t=Rawdat(!1,1) 
455 Port2=Rawdat(! ,2) 
456 Port3-Rawdat( 1,3) 
457 Port4-Rawdat(! ,4) 
458 Por tS=Rawdat(! ,5) 


a2 SF RINT USING °40 3x (40.20 ,3X MO. 30E 3X ,HO.30E . 3X tO. 30E ,3X ,HO.30E ,3X NO. 30E" 
iN Positi Port! ,Port2 ,Port3 ,Port4 Por tS 
460 NEXT N 


461 Twoprintrawl: PRINT “sersrreersresenaner sare reasee areas aneaaneaanaasenrannEs 
eee eosseseeeseneeeveranvaes” 
462 PRINT "SCAN 6 7 8 ) 12 
11" 
463 FOR N=! TO 100 
464 ENTER @Pathi ,NiRawdat( *) 
465 ON END @Path! GOTO Twoprintraw2 


466 Port6=Rawdat(1 ,6) 
467 Port7=*Rawdat(!,7) 
468 Port8=Rawdat( 1,8) 
469 Port9=Rawdat( 1,9) 
470 Port!Q@=Rawdat(!,1@) 
471 Portii=Rawdat( 1,11) 


472 PRINT USING °40,3X ,MO.3DE ,3X ,MD.30E ,3X MD. 3DE ,3X MD. 3DE ,2X NO. 3DE ,2X ,MO.30E 
“tN ,Port6 ,Port7 ,Port8 Por t3 Por t!@ Por tI! 
473 NEXT N 
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474 Twoprintraw2: FRINT “ee eee eee eee eee esate ee eee eHeeeHeheHeFeeeeeeeeeveeeeeeE 


47S PRINT “SCAN U PRB 12 13 = 14 15 
Wi” 
476 FRINT * POSIT; 


477 FOR N=t TO 102 

478 ENTER @Fath! NrRawdat(«) 

479 ON ENO @Patht 6OTD Twoprintraw3 

480 Positu=Rawdat(t,20) 

4st Port!2=Rawdat(! ,t2) 

482 Fortt3=Rawdat(t,t3) 

483 Portt4=Rawdat(t,14) 

484 Fort tS-Rawdat( 1,15) 

485 Portt6=Rawdat( 1,16) 

486 PRINT USING °40,3x% ,40.20,3X ,MD.30E ,3X .MO.3D0E ,3X ,MO.30E ,3X ,.MO.30E ,3xX ,NO.30E° 
WN Positu Por tt2 Por tt3 ,Porti4 Por ttS ,Portté 
487 NEXT N 


488 Twoprintraw3: PRINT “ee eee ee eee eee eee HEHEHE EHEHHEHTEHHEHEEHEH TERE HEE EES 
@voveeveveerveeeoeveseeevese” 

489 FRINT “SCAN 17 18 19 
490 FOR Ne=1 TO 100 

49! ENTER @Path!i .NsRawdat(?) 

492 ON END @Path! 6DTD Twoprintraw4 

493 Port!7*Rawdat(?t,t7) 

494 Fort!8<Rawdat(! ,18>) 

495 Fort!9=Rawdat(! ,19) 

496 Pax-Rawdat(! 25) 

497 PRINT USING °40,3x% ,NO.30E ,4X ,MD.30E ,4X% ,MO.30E° IN Por t!7 Por t18 ,Port!9 
498 NEXT N 


499 Twoprintraw4: PRINT “eee eee rre reece ee eee Pee eee eee eee eeeeHEeeeeeeReeREFEE 
eee eee eee eee oe 

5Q0 FRINT "SCAN YAW L YAW U TENPCHN ATHDS" 

SO PRINT. VOLT VOLT VOLT PRESSURE" 


SQ@2 FOR N=1 TOD 100 

C@3 ENTER OPath! .NiRawdat(? } 

S@4 ON ENO @Fath! GOTO TwoprintrawS 

S@S Yawchnrd!l«Rawdat(! ,22) 

SQ6 YawchnrdusRawdst(l ,23) 

SQ7) Tempchnard=Rawdat(! ,24) 

S@8 Fa=Rawdat( 1,25) 

SQ@9 FRINT USING °40 ,3x ,NO.30E ,4X ,MD.3DE 4x MO. 3DE ,4X% ,30.2D"3N,Yawchnedl ,Yawchnr 
du ,Tempchnrd,Pa 

512 NEXT N 


Sti TwoprintrawS: OFF ENO ®Patht 1TERMINATES THE ON ENO CONMANO 

Siz ELSE 

S13 PRINTER IS Prnter 

S14 PRINT “se eeveeereeooneeeeeeeeeveereseeoeveveeeeeeeEe” 

StS PRINT "PROSE RAW DATA FILE * Rawfile$ 

S16 PRINT “eeeeeeerereeeeeesareeeeeerereseeeerereveeeee” 

Si 7 PRINT “SCAN PRD8E t 2 3 4 5’ 
518 PRINT “ POSIT. 

519 FOR Net TO 108 

522 ENTER OF ath! NrRawdat(«) ISTATEMENT ACCESSES THE RAW DATA FILE IN 
S2t IRANODM MODE 

523 ON ENO @Patht 60TO Printrawt (SINCE ALL RECDROS GF A FILE MAY NOT BE 
S24 (FILLED (RECALL 10@ WERE USED FDR 100 

525 'OATA POINTS), ON END STATEMENT ALLOWS THE 
526 'PROGRAM TO CONTINUE AT THE Printraw! LINE 


528 Posit=Rawdat(! ,15) 

529 Portt=Rawdat( 1,1) 

530 Port2=Rawdat( 1,2) 

Sat Port3=Rawdat( 1,3) 

532 Fort4=Rawdat(t ,4) 

S33. For tS=Rawdat(t,S) 

534 FRINT USING °40,2x% ,40.20,2X MD. 3DE ,2X% MO. 3DE ,2X MD. 3DE ,2X ND. 3DE ,2X ,MD.30E 
"iN, Posit,Port! ,Port2,Port3,Port4,PortS 
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S35 NEXT N 
S36 Frintrawl: FRINT “see cece cece eee eee reste eee eeHPFFPHHFFEHEEFET EEF EREESEHES 


eavevevevreseeeeeeseeses” a 


537 PRINT "SCAN 6 7 8 S 10 11 


S38 FOR N=I T0 120 

S39 ENTER @Pathi ,NiRawdat(e ) 

S40 ON ENO @Path! GOTO Printraw2 

S41 Port6=Rawdat( 1,6) 

S42 Port7=Rawdat(! ,7) 

S43 Port8=Rawdat( 1,8) 

S44 Port9=Rawdat(!,9) 

S45 Portt@=Rawdat( 1,10) 

S46 Portit=Rawdat(! It) 

S47 PRINT USING °40,2X ,MO.30E ,2X ,MO.30E ,2X MO. 30E ,2X ,MO. 30E .2X MO. 30E ,2X MO. 30E 
“iN Por t6 ,Port7 Port8 ,Port9,Port!@,Portll 
S48 NEXT N 


S493 Printraw?2: PRINT “se ee eee tees eee eee PPP FEE EEE ETEREHCHRECEFEFEHHEFS REET EEEDE 
eee OC Oe eee RES Eee EERE BR” 

SS@ PRINT “SCAN {2 13 14 YAWCHAN TEMPCHAN AT 
Mos" 

Sst PRINT = VOLTAGE VOL TAGE FR 
ES SURE © 

S52 FOR N=! TO 100 

553 ENTER @Pathl ,NrRawdat(* ) 

SS4 GN ENO @Path! 60TO Printraw3 

555 Portt2=Rawdat({,12) 

SSE Port!3=Rawdat(! ,13) 

S57 Portt4=*Rawdat( 1,14) 

SSB Yawchnrd=Rawdat( 1,16) 

559 Tempchnrd=Rawdat( 1,17) 

S6Q@ Pax~Rawdat(!,198) 

Speen NI SUSING #40 2x 10. 30E (2X NO. 30E ,2x ,MO.350E .2X MO. 30E .2X ,HO.30E ,2X ,30.20° 
tN Portt2 ,Port!3,Port!4,Yawchnrd,Tempchnord ,Pa 


S62 NEXT N 

S63 Printraw3: PRINT “eee ee ee eee PPPS HFEF HEHEEHREEPOTESEERER ETHER ER ERE REESE ESE 
@eteeeseeseeeegeeeegbe”™ 

S64 OFF ENO @Pathli ITERMINATES ON ENO STATEMENT 

565 ENO IF 

S66 PRINTER IS Scren PRETURNS PRINT STATEMENTS TO MONITOR, 

S67 FRINT “ee eee eee eee eee eee eFFE SHER REFRESH T ERE RHERET ESE EER eeEe ETE eEe” 


S68 PRINT °° 
569 Printoption2: FRINT “ALIGN PAPER IN PRINTER.“ 


570 PRINT "" 

S71 FRINT “TO PRINTOUT A TABULATION OF THE PROBE OATA SCALEO IN" 
S72 PRINT °" 

S12 FRINT “ENGINEERING UNITS, PRESS “"“SCALEO OATA*™".* 

574 PRINT "* 

S75 PRINT “PRESS ""“60 ON""TO CONTINUE WITH THE PROGRAM. ™ 

576 FRINT “* 

S77 PRINT “te ee terse eee eee ee FSFE STEERER EHT RHEE EH EHR ECR ESERE HERE SEE” 


S78 ON KEY | LABEL ~ SCALEO OATA™ GOTO Prntscaledtable 
S79 ON KEY 4 LABEL “60 ON" 60TO Printoption3 
58@ Spin8: 60T0O Spin8 


SBI Prntscaledtable: MASS STORAGE 1S "/CLASSICK/REOOATA” 
582 ASSI6N @Path2 TO Sclftile$s 
583 PRINT "" 


584 PRINT “FRESS "““ONE PROBE"” IF ONE FROBE WAS USEO.” 
S85 PRINT “PRESS ""TWO PROBES °° IF TWO PROBES WERE USEO. “ 
S86 PRINT “" 


SBE7 PRINT “eee eee eee eee eee PPP FE HHP EEFEEEREEESHHECRHSCH HSE RCRHERESEREREREEEEOE" 


S88 ON KEY 1 LABEL "ONE PROBE” 60TO Numberprobes| 
S89 ON KEY 4 LABEL "TWO PROBES" 60T0 Numbarprobes2 
59@ Spin9: GOTO Sping 

S93! Numberprobesl: Noofprbs*=! 


S92 GOTO Howmanyprobes 
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S93 Numberprobes2: Noofprbs=2 
S94 Howmanyprobes: IF Noofprbs=2 THEN e 
S9S FRINTER IS Prnter 


S596 PRINT “ee eeeeeeeseteeeeepeeseeeeeeeeeseeesenetrereeeeeeees” 


S97 PRINT “PROBE SCALED DATA FILE 7 oelC ites 


S98 FRINT “POOPED EHHEHEEHERER HOHE H HEREC BAEHEEEBEEBEE” 


599 PRINT “SCAN L PRB 1 2 3 4 
S: 

60@ PRINT * POSIT” 

Gel FOR N=! TO #20 

622 ENTER ®Fath2 ,NeScaled(¢) 

603 ON END @Path2 60TD Twoprintscll 

6@4 Positl=Scaled(! ,2@) 

6@S Portit=Scaled(1,1) 

626 Port2=Scaled(l ,2) 

6@7 Port3=Scaled( 1,3) 

628 Port4=Scaled(l ,4) 

6@9 PortS=Scaled(!,S) 


61@ PRINT USING "40 ,3X ,40.20,3X ,MO.30E ,3X .MO.30€ ,3X ,MO.30E ,3X ,MO. 3DE ,3X ,MO. 3DE" 
iN Posit! Port! .Port2 ,Port3 ,Port4 ,PortS 
611i NEXT N 


612 Twoprintscll: FRINT “et eeteseeee eee eeeeeeeeeeeereeeeeeeseeserereeteeeeeeeee 
@eeveeeeeeeereesereeeseee” 
613 FRINT “SCAN” 6 7 8 | 1@ 
1t* 
614 FOR N-l TO 102 
61S ENTER @Fath2 ,NiScaled(s) 
616 ON END @Fath2 GOTO Twoprintscl2 


617 Por t6=<Scaled(1 ,6) 
618 Port7=Scaled(!,7) 
619 Port8=Scaled( 1,8) 
622 Fort9=Scaled(! 9) 
621 Portl@=Scaled( I ,1@) 
622 Porttt=Scaled(!,t1) 


623 FRINT USING W4D ,3X MO. 30E ,3X .NO.30E 3% .MD.30E .3X .NO.3DE (2X NO. SUE ZX eee 
“IN Por t6 Port? Port ,Port9 Port!®@,Porttl 


624 NEXT N 
62S Twoprintscl2: PRINT “ee eevee eeeeeee rere eeeeeeeeeeeeeeeveseneeeeeseeeeeeaeee 
eeseeoneeeeeeeeeeeeenses ene” 
626 PRINT “SCAN U FRB 12 13 14 1S 
16° 
627 FRINT *° POSIT" 


628 FOR Nel TO 10@ 

629 ENTER @Fath2 NiScaled(¢) 

620 ON END @Path2 GOTO Twoprintsel3 

631 Positu=Scaled(l ,2!) 

632 Portt2=Scaled(l,12) 

633 Fort1I3=«Scaled( 1,13) 

634 Portl4=Scaled(! ,14) 

635 PortIS=Scaled(l! ,1S) 

636 Port!6=Scaled( 1,16) 

637 PRINT USING °40,3X ,40.20 3X ,MO.30E ,3X% .HO.30E . 3x HO. 30E (3X (NO. S0E (Skene 
iN ,Positu,Port!2 ,Portl3 ,Portl4 PortIS ,Portié 
638 NEXT N 


639 Twoprintscl]3: PRINT “eeerevecerveccereererereseeeetresateteeeeereeeeveeHeres 
eee eCoeeeeeeeeeeeeveroeee” 

642 PRINT “SCAN 17 18 19 
641 FOR Nel TO 100 

642 ENTER @Path2 NiScaled(e) 

643 ON END @Pathe SOTO Twoprintscl4 

644 Portt7*Scaled(!,17) 

645 Portt8=Scaled(1,18) 

646 Porti9=Scaled(l ,19) 

647 PRINT USING °40,3X ,MO.30E ,4X .MO.3DE ,4X MO.30E°IN ,Portl7? ,PortI8 ,Port!9 
648 NEXT N 

649 Twoprintscl4: 


PRINT eee ee eee EER ERERESEREREREREREUEREEESERES UOC OPere eS we a 
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652 PRINT “SCAN YAW L YAW U TEMP ATMDS“ 
65! PRINT “ DEG DEG (Rd PRESSURE” 
652 FOR N=! TD 100 

653 ENTER @Path2 ,NiScaled(e) 

654 DN END @Path2 GDID TwoprintsclS 

655 Yawl*Scaled(!,22) 

656 Yawue*Scaled(! ,23) 

657 Temp*Scaled(!,24) 

658 Pa=Scaled(! ,25) 

659 PRINT USING °40,3xX ,MD.3DE ,4X ,MD.3DE ,4X ,MD.3DE ,4X ,30.2D"1N,Yawl ,Yawu,Temp ,Pa 
660 NEXT N 

661 TwoprintscIS: ODFF END @Path2 


662 SUSE 

663 ' END IF 

664 PRINTER 1S Prnter 

665 PRINT “se eeeseereesecereeeeeeseeeeeonseeeeeHee Beer eH EHO” 

666 PRINT “PRDBE SCALED DATA FILE " Sclfile$ 

667 PRINT “@eeeeeseeee ses es esses eeeeeeeeeoneneesceeeneoeneeeee” 

668 PRINT "SCAN PRDBE ! 2 3 4 
5° 

669 PRINT “ 0) ie 


672 FOR Ne! TD 100 

671 ENTER ®@Path2 NiScaled(e) 

672 DN END @Path2 GOTO Printscll 

673 Fosit=Scaled(! ,15) 

674 PortleScaled(!,1) 

675 Port2=Scaled(!,2) 

676 Port3=Scajed(! 3) 

677 Port4=Scaled(! ,4) 

678 PortS=Scaled( 1,5) 

679 PRINT USING °40,3X ,40.20,3X ,ND.3DE ,3X .MD.3DE ,3X .ND.3DE .3X .MD.3DE ,3X ,MD.3DE 
"iN Posit Port! ,Port2 ,Port3 ,Port4 Ports 
680 NEXT N 


681 Printscll: PRINT "ee ee Oe P ee HEHEHE HEHOOHOEHECEHOHHEE OEE EOE H EH OCH OER EHES 


682 PRINT “SCAN 6 7 8 9 12 VW 


663 FOR N=! TO 100 

684 ENTER @Path2 ,NiScaled(e) 

68S ON END @Path2 GDID Printscl2 

686 Port6=Scaled(! ,6) 

687 Fort?=Scaled(!,7) 

688 Fort8=Scaled(!,8) 

Baa Port3=Scaled(! ,9) 

692 Fortt@=Scaled(!1,1@) 

BS! Porttt=Scaled(1,11) 

692 PRINT USING “40,2X ,ND.30E ,2X ,MO.30E ,2X .MD.SDE ,2X MD. 3DE ,2X ,MD.3DE ,2X ,MD.3DE 
“aN Por t6 Port? ,Port8 Por t9 Por t!@ Port!) 

693 NEXT N 

694 Frintscl?: FRINT “ee eee ee OHHH HCOOH EO ROOT OHO HEP HEFHH CHER OC ORE E HOCH OOH EOE 
#eesvevesrseesenenese™ 

695 PRINT "SCAN 12 13 14 YAW TEMP AT 
MOS“ 

696 PRINT * DEG (R) PR 
B55" 

697 FDR N=! TD 100 

698 ENTER ®@Path2 ,NiScaled(*) 

699 DN END @Path2 GOTO Printscl3 

700 = Port!2=Scaled(!1,12) 

701) =Portt3<Scaled(t ,13) 

702) Porti4eScaled(1,14) 

703 Yaw=Scaled(! ,16) 

704 Temp=Scaled( 1,17) 

705 Pa=Scaled( 1,18) 

706 PRINT USTNG "4D,2X% ,AD.3DE,2X ,MD.3DE ,2X ,MD.3DE 2X ,MD.3DE ,2X ,MD.3DE ,2X ,3D. 2D" 


LO? 


iN Por ti2 ,Port!3 ,Port!4,Yau,Temp ,Pa 


707 
708 


NEXT N 
Printsc]3: FRINT “@ eee eee eee ee ere eee eee eer eevee eeseeeeeeeeeseseeneseeserere 


789 
710 
74 
al2 
a3 
714 
71S 
716 
fore 
PAN 


v3 
720 
721 
wee 
to 
724 
725 
726 
tee 


OFF ENO ®@Path2 
ENO IF 
PRINTER IS Scren 


PRINT "eee ee ee eee ee eee SRP SR REE SHE RHEE RESHREEEHEEETREC FREE ERECEEER EEE FEES” 


PRIN. sy 
Printoption3: PRINT “PRESS °"°BLAOE OATA*" FOR BLAOE OATA PRINT OPTIONS.” 


BRENT =7 
PRINT “PRESS “"60D ON"" TO CONTINUE PROGRAN. * 
PRINT ** 


PRINT “ee @ eee ee eee eee eee Pee PSPSPS REFEHREHFAHESERERF LAER REF H RRR EER FEEEDE 


ON KEY ! LABEL “BLADE DATA” GOTO Printoption4 
ON KEY 4 LABEL “60 ON” 60TD Loadoptionl 
Spinl®@: 6010 Spini@ 
Printoption4: PRINT °** 
PRINT "ALIGN PAPER IN PRINTER.” 


PRINT “" 

PRINT “TO PRINT OUT A TABULATION DF THE RAW BLADE DATA" 
PRINT °° 

PRINT “PRESS “"BLAOE OATA””. PRESS” GO ON” SiOsechiiueee 
PRINT °* 


PRINT “ee ee eee reer eee eee eee EEEH HRS HFHPEF RR RFR EF RFR R EEF FEL EARS 


ON KEY 1? LABEL “BLAOE DATA" GOTO Prntbladedata 
ON KEY 4 LABEL "GO ON” 60TO Printoptions 

Spintt: GOTO Sptntl 

Prntbladedata: MASS STORAGE IS °/CLASSICK/OATA” 
ASSIGN @Path3 TO Rawbladfiles 
PRINTER IS Prnter 


PRINT “se ee eeeeeoeteeeeeeeeeeeeeeaeeeeseaseseeaeeeeeeneeneeese” 


FRINT “BLADE RAW DATA FILE * Rawbladfiles 
FRINT “se eee eee eeeeeeeee eee eeeeeeeeeeseeeeeseseseaaeeeeeeeeeesa” 
FRINT ** 


PRINT "PROBE DATA ASSOCIATED WITH THE BLAOE OATA IS CONTAINED” 
FRINT “IN FILE: ° Rawfiles 
PRINT “SCAN:° Scan 
FRINT “SCANIVALVE VOL TAGE “ 
FRINT “FORT REAOING" 
FOR N=! TO 48 
ENTER @Path3:Scanval(l ,N) 
FRINT USING °O0 ,20@X ,MO.3DE°sN ,Scanval(l N) 
NEXT N 
PRINTER IS Scren 
PrintoptionS: PRINT “eee eeeeaeeeeaeasaeeeeeeeaaeeseeaeaeeaaneeseaeeeeeeeseae” 
PRINT ** 
FRINT “ALIGN PAFER IN PRINTER.“ 
FRINT °° 
FRINT “TO PRINT OUT A TABULATION OF THE BLADE OATA SCALEO TO ° 
PRINT °° 
FRINT “ENGINEERING UNITS, PRESS ~“SCALED DATA ~:~ 
PRin °~* 
PRINT “PRESS “"60 ON*" TO TERMINATE PROGRAM. ° 
PRINTS: * 
ON KEY | LABEL “SCALED OATA* GOTO PrntsclIdbladdat 
ON KEY 4 LABEL “60 ON" 6010 Loadoptioni 
Spinl2: GOTO Spini2 
Prntscldbladdat: MASS STORAGE 15 “/CLASSICK/REDDATA™ 
ASSIGN O@Path4 TO Scibladfiles 
PRINTER IS Prnter 


FRIN] “eee eeeeseseeaaeeseeerevreeaseseeseeueseeeeeesereseneeeaeR” 


PRINT “BLADE SCALED DATA FILE * ,scibladfiles 


PRINT “ee ee ee eae eases eRe e PRP RTH RRR E REFEREE HEAR EEE LEER FOR ER0E" 


UALS, 


7639 
770 
771 
ete 
(Tee) 
774 
4¢5 
776 
777 
778 
779 
760 
781 
782 
783 
764 
78S 
786 
787 
786 
789 
790 
794 
woe 
793 
794 
TSS) 
a95 
794 
796 
799 


PRINT 
PRINT 
FRINT 
PRINT 
PRINT 
PRINT 
FOR N= 


| 


"PROBE OATA ASSOCIATEO WITH THE BLAOE OATA IS CONTAINED" 
"IN FILE: *,Sclftle$ 

"SCAN: * ,Scan 

"SCANIVALVE PRESS (INCHES H2o0)” 

SPORT; 

1 TO 48 


ENTER @Path4iPrntdata(! ,N) 
PRINT USING “00 ,2@X ,MO.3DE"3sN,Prntdata(! ,N) 


NEXT N 


Loadoption!: PRINTER IS Seren 


Fin: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


ee ee eee eR ER ERRER ERE REE MERE EE EERE RERERERERERERERER EP ER ERE RSE | 


"TO LOAO PROGRAM TO REDUCE THE ACQUIREO OATA™ 


"PRESS “"CALC"". PRESS “"GO ON*" TO TERMINATE THE PROGRAM” 


“SS SPFcPC eS eHFFHPHFFFHUFFFFFHHRRFHFRSHHHEF HEHE RERE HSER ERED 


ON KEY 1 LABEL “CALC” GOTO Loadup! 
ON KEY 4 LABEL "GO ON" GOTO Fin 
Spint3: 
Loadup!: MASS STORAGE IS “/CLASSICK/PROGS” 
LOAO “CALC” ,12 


FRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ENO 


GOTO Spint3 


“@@PPSFPSSEFRSSHFHFHSHTESEEESEHFHTEEEHHTEEHETEHETER TEER EE EES 
"“@@PSP PHP PHF FHP HHERES ESET SHEER HETEHFEHRES HHS EHERHEBESE 


F ENO OF FROGRAM" 


‘es 


"SPOR SPST SHEP ESSSOT SHES SHES HEHESHESSHEEHHESHEHHEEEHEHTEBEETES 


"SP PPS SPS SFEHHHHRHEHESES THT SHES RHE SHR THESHHERR HERE BE REET EBES 


eee 


- 


Ail 


B7.2 Reduction Program CALC 


IPROGRAM CALC Z 

1 THIS PROGRAM TAKES THE FILES OF OATA COLLECTED FROM THE PROBE(S) 

| ANO REDUCES THE OATA TO USEFUL ENGINEERING QUANTITIES THESE 

1 VALUES ARE PRINTED IN TABLE FORM. 

(MUCH OF THE CODING IN THIS PROGRAM HAS BEEN PREVIOUSLY COMMENTED ON 

TIN PROGRAM ACQUIRE. 

OPTION BASE | 

DIM Raddat(! ,106) 'AN ARRAY FOR THE SCALEO OATA FROM ACQUIRE. 
'RECALL THAT THE SCALED OATA WAS STORED BY 
1A RANDOM OUTPUT STATEMENT. 


OIM Pte 64 (THE ARRAY FOR THE PHI COEFFICIENTS: 
DIM X(6,6) ITHE ARRAY FOR THE X VELOCITY COEFFICIENTS. 
OIM Pu(6 ,6) 1IF 2 PROBES USED THEN THE PHI ARRAY FOR 


'THE UPPER PROBE. 

OIM Xu(6 ,6) 

DIM Knearay( 102) 1KN VALUES STOREO IN AN ARRAY.Kn=K IN TABLE 
'! OF CLASSICK THESIS. 

DIM Prbpos( 100) 

DIM Aaray(1@Q) 'AN ARRAY OF VALUES USED IN THE CALCULATION 

DIM Baray( 180) 'OF BLAOQE CP'S. 

MAT Reddate= (@) 

MAT Knaray= (Q) 

MAT Prbpos= (Q) 

MAT Aaraye (@) 

MAT Baray? (Q) 


DEG TALL ANGLES WILL BE IN DEGREES. 
Prnter=791 

Scren?|l 

Firstbladeprt<4 (FIRST SCANIVALVE PORT ASSIGNEO TO THE 


TINSTRUMENTED BLAOE THAT IS OF INTEREST 
'IN THE CP CALCULATION. 

Lastbladeprt=48 tLAST."* “eq. 

G=1.4 

Cpo=.24 

LOAQOSUB ALL FROM "/CLASSICK/ROUTINES/SUBCALC“ 

MASS STORAGE IS °/CLASSICK/REDOATA’ 

FRIITLT “feet ee eee were ee FOBT ERSTE HEFCE E EF ET EEF EHH EF HEHE RHEE HEREE EE AE OS 

PRINT ~~ 

PRINT “ENTER THE NAME OF THE FILE CONTAINING THE PROBE DATA SCALED" 

PRINT "TO ENGINEERING UNITS“ 

INPUT Sclfile$ 

ASSIGN @Path! TO Scifile$ 

PRINT "se ec eeeeeee er ee eee ee eee eee Fee eee asses eeeeHeFeeeHHR EE ee eee ee eee eee” 

PRINT = 

PRINT “ENTER THE PROBE COEFFICIENT FILE FOR X VELOCITY. TiisaW i Gee 

FRINT °° 

PRINT “FOR THE LOWER PROBE IF TWO PROBES ARE BEING USEO." 

INPUT Readx«& 

ASSIGN @Path2 TO Readx& 

ENTER @Path21X(*) 

PRINT “eee eee ee eee eee eee Heeee FoF FFE EEHEHE HEHEHE HOH EFF EH HEHE EEE ERE RR eE EEE” 

PRING =~” 

PRINT “ENTER THE NAME OF THE COEFFICIENT FILE FOR PHI. THIS WILE BE 

PRINT °° 

PRINT "FOR THE LOWER PROBE IF TWO PROBES ARE BEING USEO.” 

INPUT Readp$ 

ASSIGN @Path3 TO Readp$ 

ENTER @Path3:P(e) 

PRINT “es @ ee eee eee eee ee eee eee eee eee ee Heeee eee He EFF OREE FEET RHR HCO BEE HEE OE” 

PRINT °° 

FRINT “IF DATA WERE COLLECTEO WITH ONE PROBE, PRESS °" ONE PROBE™"* 

PRINT °° 

PRINT “IF DATA WERE COLLECTED WITH TWO PROBES, PRESS “"TWO PROBES**° 

PRINT °° 


dale 


224 PRINT “see eeeeeer ees h er esseeeeeseeesseeeeeHeeHeeeHsTHesedsesesessseseess 
Zos ON KEY 1 LABEL “ONE PROBE” GOTO Numberprbs! 
226 ON KEY 4 LABEL “TWO PROBES” GOTO Numberprbs2 


227 SO lnc GOTO Spin! 

22B Numberprbs!: Noofprbs=! 

224 60TO Checknooforbs 

231 Numberprbs2: Noofprbs72 

240 Checknoofprbs: IF Noofprbs*#2 THEN 

Z50 MASS STORAGE IS “/CLASSICK/REOOATA* 

25) PRINT “SOOPER EHEHSEEEEEHHHPHEPPHPHEEEHPPHEHEEESEHHPTESEEHH SHEEP EH SHH EERE HERE” 
Zo PRINT = 

2535 PRINT “ENTER THE FILE NAME FOR THE UPPER PROBE COEFFICIENTS FOR Xvel.* 

254 INPUT Readxu$ 

255 ASSIGN @Path2u TO Readxu$ 

256 ENTER @Path2usXu(* ) 

259 PRINT “ee Pe eo ee er ee POPES EPPESEFEFEEEES ETF ESTESHHFETEEEEHEEEFEKESH EER EEE” 
262 PRINT °° 

26) PRINT "ENTER THE FILE NAME FOR THE UPPER PROBE COEFFICIENTS FOR PHI.” 

262 INPUT Readpu$ 

263 ASSIGN ®@Path3u TO Readpu$ 

264 ENTER @Path3urPu(® ) 

cb? PRINT “S89 ® ee eee eee eee SE HEHEETHHSHTESEHFESESESHFESEESEHP SHH HER ESFER SESE SEES 
26B PRINT °" 

269 PRINT “ENTER THE FILENAME FOR THE OATA TO BE CALCULATEO FROM LOWER PROBE ” 
270 INPUT Calclfile$ 

Zao CREATE BDAT Calclfilet ,100 

274 ASSIGN @Path4 T0 Calclfile$ 

275 PRINT “eee eevee ee eee eee SSS HFEFFFFESTHHSFFFSFeseFeFeseesEeseesesesessE 
276 PRINT "" ~ 

Zad PRINT “ENTER THE FILENAME FOR THE OATA TO BE CALCULATED FROM UPPER PROBE" 
278 INPUT Calcufile$ 

2BI CREATE BOAT Calcufiles ,120 

2B2 ASSIGN @PathS TO Calcufile$ 


2B3 Teese SeSFEETFHFSFSEHSHHEHPEHPT SH HOSES SHH SEE HHERESCSEECHFH HHH HSER HF SET Be THF EHH ES 
2B4 le NOTE: THE SCANIVALVE SENSES THE FRESSURE OIFFERENTIAL FROM . 
2BS te ATMOS. THE SCANIVALVE IS CALIBRATEO SO ATMOS FRESS(Pa) » 
2B6 Ie REAOS ZERO. THE PRESS SENSED AT A PORT IS THE PORT . 
2B7 Je PRESS MINUS Pa i.e. ,GAGE PRESS. TO ELIMINATE ERRORS OUE »® 
288 |e TO OVM ORIFT, THE PRESS SENSEO BY PORT 1 OF THE , 
289 |e SCANIVALVE (Ptare=Pa-Fa) IS SUBTRACTED FROM EACH . 
292 |e SCANIVALVE PORT REAOING. . 
eg 1s , 
292 beeseseeseesessessesese TWO PROBES seer eseseesessseseeseeseeesseressseess 
293 JeeeeseeeeeSCANIVALVE PORT ANO SCANNER CHANNEL ASSIGNNENT#® #eeeeeseeeee08 
294 le 9 
Fags bs le . 
296 }e VARIABLE VARIABLE POR* HANNEL OATA ARRAY ® 
23.7 J« REPRESENTS ° 
298 le , 
299 }* Ptare Pa-Pa FORT | Reddat(!),1) . 
300 'e Peal Pcal-Ptare FORT 2 Reddat(!,2) . 
30) te Po Polenum-Ptare PORT 3 Reddat(!,3) * 
3Q2 }' Ps Pwallstatic-Ptare PORT 4 Reddat(!,4) . 
303 1 Pt Pi-Ptare PORT S Reddat(! ,S) . 
304 te P2 P2-Ptare PORT 6 Reddat(! ,6) ‘ 
305 je PZ P3-Ptare PORT 7 Reddat(!,7) ® 
3@6 Ve F235 CPZ te OZ 4 
307 }e P4 P4-Ptare PORT 8 Reddat(!,B) * 
30B je PS PS-Ptare PORT 9 Reddat(! 9) e 
309 ts Ptp Ptotalorndt!-Ptare PORT 10 Reddat( 1,10) 8 
31@ 1* Psp Patatprndt)-Ptare PORT 11 Reddat( 1,11) . 
311 be BLANK PORT 12 Reddat(1,12) ® 
Biliz t* Plu Pilu-Ptare PORT 13 Reddat( 1,12) ‘ 
313 1s P2u P2u-Ptare PORT 14 Reddat( 1,14) ‘ 
314 te P3u P3u-Ptare PORT 15 Reddat(!,1S) * 
315 te P23u _ (P2ut+P3u)/2 , 


Li 


257 
358 
353 
360 
362 
363 
364 
355 
366 
357 
368 
369 
370 
371 

ore 
572 
374 
375 
376 
S77 
S78 
o79 
382 
381 

Bac 
13 
384 
385 


1° Pdy P4u-Ptarea PORT 16 Reddat(1!,16) 


le PSu PSu-Ptare PORT 17 _ Reddat(!,17) ° 
le BLANK PORT 18 Reddat(1,!B) e 
Je BLANK PORT 19 Reddat(1,19) ° 
le Posit L PRB POSIT INPUT Reddat(! ,20) ® 
1» Positu U PRB POSIT INPUT Reddat(1!,21) ° 
te Yaw LOWER PRB YAW 24 Reddat(1!,22) . 
!* Yawu UPPER PRB YAW 21 Reddat(!,23) ° 
!* Temp TOTAL TEMP(PLENUM) CHAN 18 Reddat(! ,24) . 
fe Pa ATMOSPHERIC PRESS INPUT Reddat(!,2S) . 
je ° 
fe ° 


JP SCSHHE SHS HHSHHHSHEHSHHHHERFSCH SEF ECEE ROSES EF FE HRESE SH RHP EEE EERE R EEE EOD 
PeeesseevceseesseseeePATA REDUCTIONt se eeeecceseseeeeeseeseeeeeeeseseeees 


DIM Calel( 100,25) 


MAT Calcl= (®) 
Pinitiall=@ tHINITIALIZES THE CONDITIONS TO CALCULATE 


'ENSEMBLE VALUES IN SUBROUTINE ENSEMBLE 
Tinitial=@ 
Painitiall=@ 
FOR N=! TO 102 
ENTER @Path! .NiReddat( *) TTHE ARRAY IS ENTERED WITH A RANDON 
'STATEMENT. 
DN END @Path!t GOTO Twoprintcalcl 
PtaresRaddat(!,1) 'REASSIGNMENT OF ARRAY ELEMENTS TO 
1 IDENTIFIABLE QUANTITIES TO BE USEO IN 
'IN SUBROUTINE CALCULATIONS. 
Peal<Reddat(!,2) 
Po=Reddaf(1 ,3) 
Ps=Reddat(1! .4) 
Pl=Reddat(1,S) 
P2=Reddat(!1,6) 
P3<Reddat(!,7) 
P23=(P2+P3)/2 
P4-Reddat(!,B>) 
PS«Reddat(!,9) 
Ptp=Reddat(!,10) 
Psp=Reddat(!l 11) 
1BLANK =Reddat(1,12) 
Posit=Reddat(! ,20) 
Yaw=Reddat(t ,22) 'YAW ANGLE CORRECTION COULD BE MADE 
'HERE IF NOT ALREADY DONE IN ACQUIRE. 
Temp?Reddat(! ,24) 
Pa=Reddat(!,25) 
ICALCULATE SETA AND GAMMA COEFFICIENTS 
CALL Bgcalc(Pa,P! P23 ,P4,PS Beta Gamma) 
ICALCULATE THE ENSEMBLE REFERENCE VALUES DF PLENUM PRESS ,PLENUM TEMP AND PA 
CALL Ensemble(Pp ,Pinitial ,Pa Painitial ,Temp ,Tinitial ,Ppavg .Paavg,lempavg,N) 
ICALCULATE Xvel AND Phi 
CALL Xphicalc(Beta ,Gamma ,Xval ,X(*) Phi ,P(*)) 
ICALCULATE Xref 
CALL Xrefcalc(Pa,Pp,6,Xref > 
ICALCULATE QREF AND VREF 
CALL Qvrefcalc(Xref ,Cp,Tamp,G Pp Pa ,Qref ,Vraf ) 
t'CALCULATE VELOCITY AND WHACH $ AND Q 
CALL Vmacalec(Xvel .Cp,Temp,6 Vel ,Mach,P! ,Pa ,Q) 
' CALCULATE THE INTEGRAND FOR THE AVDR EXPRESSION 
CALL Kncalec(Pa,P!t Pp ,Xval ,Xref ,6,Yaw ,Kn) 
I1CALCULATE THE COEFFICIENT DF PRESSURE TERM TO BE MASS AVERAGED. 
'THESE TERMS ARE USED IN THE CALCULATION OF THE LOSS COEFFICIENT. 
CALL Coefpress(P! ,Pp,Pa ,Xvel ,6 ,Cos ,Cpt) 
ICALCULATE THE QUANTITIES TO BE MASS AVERAGED. MULTIPLY THESE VALUES 
IBY Kn TO GET THE INTEGRAND REQUIRED TD CALCULATE THE MASS AVERAGED CP'S 
CALL Cpintegrand(Pp ,P! ,Pa,6 ,Xvel ,A,B.Kn) 
' CALCULATE Pp-P!/Qref FOR PLOTS 
CALL Prefqref(Pp,P!, Qref, Pa) 


114 


286 1 CALCULATE STATIC PRESSURE UPSTREAM 
387 CALL Staticpress(Pl ,Pa,Xvel ,G,Ps) 
3869 IDEFINE AN ARRAY TO STORE CALCULATED VALUES | 
390 Calcl(N,1)=Posit 

391 Calcl(N,2)=Beta 

e392 Calcl(N,3)=Gamma 

393 Calcl(N,4)=Phi 

394 Calcl(N,5)=Xvel 

255 Calcl(N,6)<Xref 

396 Calcl(N,7)=Vel 

597 Calcl(N,8)<Mach 

398 Calcl(N,9)#Yaw 

aa3 Calcl(N,10)=Kn 

420 Calcl(N,11 )=Cpt 

4Q1 Calcl(N,12)=Cps 

4Q2 Calcl(N,13)=Qref 

403 Calcl(N,14)=Vref 

404 Calcl(N,1S5)=Q 

405 Calcl(N,16)=A 

4@6 Calcl(N,17)<8 

407 Calcl(N,18)=Pq 


408 Calcl(N,19)=PFa 1Pa & Ps ARE USED FOR STATIC PRESS 
4@9 IRISE CALCULATION IN PROGRAM LOSS. 
4if Calcl(N ,20)=Ps ITHESE VALUES ARE NOT PRINTED. 

412 Knaray(NjdeCalcl(N,1@) WANT TO STORE MORE THAN JUST ONE 

413 1Kn VALUE FOR MASS AVERAGING 

414 ICALCULATIONS. 


lias aon 


415 Prbpos(N)=Calcl(N,I) 
416 Aaray(N)=Calcl(N,16) 
417 Baray(N)=Calcl(N,17) 
418 Scan=N 
419 NEXT N 
429 Twoprintcalcl: OFF END @Path!i 
42\ ICALCULATE ENSEMBLE AVERAGE OF XREF 
422 CALL Xrefensemble(Paavg ,Ppavg ,6 Xr efavg) 
423 ICALCULATE ENSEMBLE AVERAGE OF VREF 
24 CALL Vrefensemble( Xrefavg Cp ,Tempavg ,Vrefavg) 
425 ICALCULATE ENSEMBLE AVERAGE OF QREF 
426 CALL Qrefensemble(Paavg ,Ppavg,6& ,Xrefavg ,Orefavg) 
427 PRINT “8 ee Poe eee eee ee Pee RHP ESS EP HOPES HH SE SHH EPPS EH OSH HSPP HORS ER ERE 
478 PRINT "* 
429 PRINT “ALIGN PAFER IN PRINTER, WHEN READY FOR A HARDCOPY OF THE “ 
430 Prawie ChHLCUrATED ORIA. PRESo REDUCED DATA .~ 
431 PRINT “" 
432 PRINT “# ®@ ee eo eee eee eee eee EPSP HP ESEHPEEHESHOFEH HEH SHRP SESH ERE SES ER EES” 
433 ON KEY {| LABEL "REDUCED DATA" GOTO Prntdataz2 
434 Spin2: GOTO Spin2 
435 Prntdata2: PRINTER IS Prnter 


(ave ea 


436 PRINT “sense veer eevnereeeeeeeeereeeennes ™ 

437 PRINT "FILE ° Calclfile$ 

438 PRINT “se eevverevevesrereeerererevrereenee” 

439 PRINT “see eee eee rear eeeee EPPO HPEH HHH HPP HHH EHH SHER HES HRP ESHER ES 


440 Prin. 


44| PRINT “SCAN L PRB BETA GAMMA PH] Xvel 
Xref ° 
442 PRINT " POSIT” 


443 FOR N=! TO Scan 

444 PRINT USING *40,3X ,40.2D,3X ,MD.3DE ,3X MO. 3DE ,3X .MD.3DE ,2X ,MD. 3DE ,2X ,MD.3DE 
"aN Calcl(N,t) Calcl(N,2) Calcl(N,3) Calcl(N,4) ,Calcl(N,S) Calcl(N,6) 

445 NEXT N 

446 PRINT “° 


447 PRINT “See ee ee eee OOP EE SEH EPP P HRP PREP PPP POPP PPP PEP SEP HEH HOHE PERO DD 
eeuseveeeseng” 


448 PR tis: 
449 PRINT “SCAN VEL VREF Q QREF MACH 


LS 


€ 


YAW" 
450 PRINT ° 
DEG ° 
451 FOR N=} TO Scan 
4S2 PRINT USING °40,3X ,MO.30E ,3X .MO.30E .3X ,MO.30E ,3X% (HO. S0E 22x NO. SCE 2x eh. oo 
E"iN Calcl(N,7) ,Calcil(N,14) Galcl(N.tS) Calcl(n,13) Calentnee eee 
453 NEXT N 
454 PRINT "* 


4SS PRINT “eee eee er ee POOR PPP EF HHHHHSHHEHFHEEHEHEHEHPHEF SHOR ORHHRERR OR REEAEEO 


~= 


ASE PRINT ** 
4S7 PRINT "se eee eee ee eee eee PPP AEHEF EEE EHHHHHRHEHREHEHHHHHEHEEERRHHAHHHHHHEH HEED 


epeaaanasnenzaaee 
458 PRINT) 
4sg PRINT “SCAN Pref-Ptli/Qref~* 

460 FOR Ne! TO Scan 

461 PRINT USING "40,3X ,MO.3DE"IN ,Calc(N,18) 
462 NEXT N 

463 PIRAENT = > 


464 PRINT “es see eer eee eee O OPER EHTEFEHEHEHHEHHOHFAHHHRHHRHHHOHHEE ER HORE RHE ARERR ODE 


465 PRINT ** 

466 PRINT "ENSEMBLE AVERAGES” 

467 PRINT °° 

468 PRINT “PPAVG PAAVE TEMPAVG XREF AVG VREF AVG 
QREFAVG * 

469 PRINT USING °MO.30E ,SX M30. 20E ,SX 30.20 5X .NO. 306 Sx MOl50E 3% 0-302 

vg ,Paavg,Tempavg ,Xrefavg,Vraefavg Qrefavo 


47@ OUTPUT @Path41Calcl(*) 1DUTPUT STATEMENT IS SERIAL. 
471 DIM Calcu(1@@,25) ISEPARATE CALC ARRAY FOR REDUCED 
472 'OATA FROM UPPER SURVEY STATION. 


473 MAT Calcu= (@) 

474 FOR N=!t TO 102 

475 ENTER @Path! NyReddat(*) YENTER STATEMENT 1S RANDOM. 
476 ON END ®@FPath!l GOTO Twoprintcale2 

477 Ptare=Reddati(l,!) 

478 Fo=Reddat(t,3) 

479 Ps=Reddat(!,4) 

480 Pto=Reddat(! 10) 

48} Psp=Reddat(t,Il) 

482 Plu=Reddat(t,t3) 

483 2u=Reddat(!,14) 

484 P3u=Reddat({ ,15) 

485 P2u3u=(P2u+P3u)/2 

486 P4usReddat(!,16) 

487 PSu=Reddat( 1,17) 

488 ('BLANK=REODAT( 1,18) 

489 1'BLANK=REOOAT( 1,19) 

490 Positu=Reddat(t,21) 

491 Yawu"Reddat(!,23) 

492 Temp=Reddat(t ,24) 

493 Pa=Reddat(t ,25) 

494 (CALCULATE BETA ANO GAMMA COEFFICIENTS 

49S CALL Bocalc(Pa ,Ptu ,P2u3u P4u ,PSu Satau ,Gammau ) 

496 (CALCULATE Xvelu AND Phiu 

497 CALL Xphicalc(8etau ,Gammau ,Xvelu ,Xu(#),Phiu ,Pule)) 
498 (CALCULATE Xrefu 

499 CALL Xrefcalc(Pa .Pp,G ,Xrefu) 

522 ICALCULATE QREF AND VREF 

Set CALL Qvrefcalc(Xref Co Temp ,G,Pp Fa ,Qref Vref ) 

S@2 ICALCULATE VELOCITYu ANO MACHu # AND Qu 

5@3 CALL Veqcalc(Xvelu Cp ,Temp 6 ,Velu Machu ,Plu ,Pa ,Qu ) 
SO4 t CALCULATE THE INTEGRANO FOR THE AVDOR EXPRESSION 
Ses CALL Kncalc(Pa ,Plu ,Pp ,Xvelu ,Xrefu,6,Yawu ,Knu) 

S@6 1 CALCULATE THE COEFFICIENT OF PRESSURE FOR THE UPPER PROBE. 
SQ7 t THIS TERM WILL BE MASS AVERAGEO ANO USFO IN THE CALCULATION OF THE 


a6 


Ses ' LOSS COEFFICIENT. THE Cpsu TERM 1S NOT USED IN THE LOSS COEFFICIENT 


509 ' CALCULATION. 

518 CALL Coefpress(Plu,Pp,Pa ,Xvelu,G,Cpsu,Cptu) _ 
Sil 1 CALCULATE Pp-PI/Qref FOR PLOTS 

S12 CALL Prefaref(Pp,P! Qref ,Pqu) 

Slo 1 CALCULATE THE DOWNSTREAM STATIC PRESSURE 


S14 CALL Staticpress(Plu Pa ,Xvelu,G Psu) 
S16 Calcu(N ,1)=Positu 
S17 Calcu(N,2)=Betau 
518 Calcu(N ,3)=Gammau 
519 Calcu(N ,4)=Phiu 
520 Calcu(N ,S)=Xvelu 
SZ! Calcu(N,6)"Xrefu 
S22 Calcu(N,7)*Velu 
S23 Calcu(N,8 )#=Machu 
S24 Calcu(N ,9)*Yawu 
Sus Calcu(N,1@)="Knu 
26 Calcu(N,!1)=Cpotu 
S27 Calcu(N,12)=<Cpsu 
528 Calcu(N,13)=Qu 
529 Calcu(N,14)=Pqu 


550 Calcu(N,19)=Pa 'Calcu(N,1S) TO Calcu(N,t8) WILL HAVE 
Ss | Calcu(N,20)"Psu 'ZEROS. ARRAY ELEMENT ASSIGNMENT 15 
SZ ICONSISTENT WITH LOSS PROGRAM ANO 

Soo }ONE PROBE SURVEY. 


535 Scan=N 
536 NEXT N 
S37 Twoprintcalec2: OFF ENO @Path!i 


538 PRINT “Se eee eee eee PSPS FHP EHSSFFFSHFFSSHFHF SSF SFSFFSHSSHHHHH RSH STH HRFEHF ERSTE ERS 


Sag PRINT "* 


S40 FRINT “se ee esas as assaeeeseaeeeearaesasaeaaas” 

S41 PRINT "FILE ° Calcufiles 

S42 PRINT “se ee eee ease reeeseseseeeseaaesthasearsea” 

G43 PRINT “se ee ee eae eee sP OPPOSE FFFF HFEF EH EFEFEFFF HFEF FFF THF HEH H HHH SEH ERED 


eaepaeassavaegana” 

S44 FRING: 

S45 FRINT “SCAN U PRB BETAU GAMMAU PHIU Xvelu “ 

S46 PRINT * POSIT” 

S47 FOR Ne! TO Scan 

S48 PRINT USING “40 ,2X ,40.20,3X ,MO.30E ,3X ,MO. 30E ,3X ,MO.30E ,3X ,MD.3DE“iN Calcul 
Nt) Calcu(N,2) Calcu(N 3) Calcu(N,4) Calcu(N,S) 

549 NEXT N 


SS@ PRINT "Se eee eee ee ese eee POSSE H SH SESH PERE SSSHSSFFFHEHSFFEF ESE SH HFEF ETH H SERBS 


551 PRINT “* 
BO2 PRINT "SCAN VELU QU Pref-Ptu/Qref MACHU YAWU" 
S53 PRINT * DEG" 


$54 FOR N=! TO Scan 

sss PRINT USING “40,3xX ,MO.3DE ,3X .MO.30E ,3X ,MO.30DE ,3xX ,MO. 3DE ,3X .MO. 30E“4N ,Calcu 
(N,7) Calcu(N,13) Calcu(N,14) Calcu(N,B) Calcu(N 9) 

556 NEXT N 


557 PRINT “See eet eee ee eee PFE H FETE SEE H EH HHESFF EHH HSE H ERE ESS HFRS RSH REH EER ES 
eeeeseesaeees” 

SS8 PRINTER 1S Scren 

559 OUTPUT @PathSiCalcu(*) 


560 ERSE 
S61 MASS STORAGE 1S “/CLASSICK/REDDATA” 
S62 PRINT "te tae eee eee eee SPSS OHHH EHHEH TESTE HEHH SEES HRP FRESH TESTS RH EEE ES 


S63 PRINT °"" 

S64 PRINT "ENTER THE FILENAME FOR THE DATA TO BE CALCULATED FROM THE PROBE °* 
SES INPUT Calcfile? 

S66 CREATE BOAT CalcfileS ,100 

S67 ASSIGN @Path4 TO Calcfile$ 


S68 Pee PSPS SS HHHEFHSHEFHEFHSKHESH EE HSF FSP ESF F SHH HEHESHSHHHH HEHEHE PH RESER ER EH EES 


ay 


S69 
572 
571 

S72 
S735 
S74 
S75 
576 
$77 
578 
S73 
590 
SB! 
Sud 
$83 
584 
Ses 
SB6 
S67 
588 
589 
59@ 
sas) 

os 
S33 
$94 
S35 
S96 
S37 
598 
ood 
6Ce@ 
601 

602 
603 
6@4 
6@5 
B@6 
6@7 
628 
6@9 
610 
611 

612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

622 
623 
624 
625 
626 
627 
628 
629 
632 
631 

Soc 
B30 
634 


Jesssevesesessesesseses ONE PROBE eseseterseseesetaeesesessssessecesesn 


|e eeeesseesSCANIVALVE PORT ANO SCANNER CHANNEL ASSIGNMENT eeesessceccccns 


1s - ® 
i) e 
be VARIABLE VARIABLE PORT/CHANNEL OATA ARRAY e 
Je REPRESENTS . 
| « e 
1 Ptare Pa-Pa PORT | Reddat(1,1!) . 
'® Pcal Pcosal-Ptare PORT 2 Reddat(1,2) a 
I) Fp Polenum-Ptare PORT 3 Reddat(! ,3) ® 
j* Ps Pwallstatic-Ptare PORT 4 Reddat(!,4) e 
je PI Pi-Ptare PORT §S Reddat(! ,S) « 
}* P2 P2-Ptare PORT 6 Reddat(! ,6) e 
le PZ P3-Ptare PORT 7 Reddat(!,7) i) 
le P23 (P24+P3)/2 . 
1* P4 P4-Ptare PORT 8 Reddat( 1,8) . 
fe PS PS-Ptare PORT 9 Reddat(1 ,9) e 
te Ptp Ptotalorndt!l-Ptare PORT 1@ Reddat(1,1@) ® 
1* Psp Pstatorndtl-Ptare PORT 11 Reddat(! 11) . 
le BLANK FORT 12 Reddat(1,12) . 
Je BLANK PORT 13 Reddat(!,13) . 
le BLANK FORT 14 Reddat( 1,14) ® 
be Posit PRS POSIT INPUT Reddat(!,15) . 
15 Yaw PR8 YAW CHAN 24 Reddat(!,16) . 
1* Temp TOTAL TEMPC( PLENUM) CHAN 18 Reddat(!1,17) . 
ie Pa ATMOSPHERIC PRESS INPUT Reddat(!,18) e 

a 


|* s 
POSSESSES EKER EHF ESET SE EEFEKEFHFH SSE EEEH EE ESHSERSEEH ESHER FHSS ES ESF ESHER HEED 
beseeesessssssessssesfATA REQOUCTIONs ese ese ees sees eases es se Besse eesseenss 


OIM Calc(1@@,25) 

MAT Calc (@) 

Pinitial=@ TINTIALIZES CONOITIONS FOR ENSEMBLE 
ICALCULATIONS IN SU8ROUTINE ENSEMBLE. 

Tinitial=@ 

Painitial=@ 

FOR N=! TO 100 


ENTER @Path! ,NiReddat( *) JARRAY ENTEREO RANOOMLY 
ON ENO @Fath! GOTO Printcalcl 
Ptare=Reddat(l,1I) 'REASSIGNMENT OF ARRAY ELEMENTS 10 


170 IOENTIFIABLE QUANTITIES USEO IN 
'SUBROUTINE CALCULATIONS. 

Poeal=Reddat(! ,2) 

PosReddst(! ,3) 

Fs-Reddst(! 4) 

Pi=Reddat(! 5) 

P2-“Reddat(! 6) 

P3-Reddat(!,7) 

P23=(P2+4+P3)/2 

P4=Reddat(! ,8) 

PS=Reddat(!l 9) 

Ptp=Reddat(!,1@) 

Psp=Reddat(! ,I1) 

(BLANK=Reddat(! ,12) 

IGLANK=Reddat( 1,13) 

IBLANK=Reddat(! ,14) 

Posit=Reddat( 1,15) 

Yaw=Reddat(! 16) 

Temp=Reddati( 1,17) 

Pa=Reddat(!,18) 

'CALCULATE BETA ANO GAMMA COEFFICIENTS 

CALL Bocalc(Pa ,P!I ,P23 ,P4,PS Bets ,Gamma) 

ICALCULATE THE ENSEM8LE REFERENCE VALUES OF PPLENUM,PLENUM TEMP AND PA. 
CALL Ensemble(Pp ,Pinitial ,Pa Painitial ,Temp ,.Tinitial ,Ppavg ,Paavg,lempavg,N) 
ICALCULATE Xvel AND Pht 

CALL Xphicalc( Bata Gamma ,Xvel ,X(*) Phi ,P(e)) 


sits: 


635 ICALCULATE Xref 

636 CALL Xrefcalc(Pa,Pp,G Xref) 

637 ICALCULATE QREF ANO VREF . 

638 CALL OQvrefcalc(Xref ,Cp Temp ,6,Pp ,Pa ,Oref ,Vref) 

639 ICALCULATE VELOCITY ANO MACH # ANO Q 

642 CALL Umncalc(Xvel ,Cp,TFemp,6 ,Vel ,Mach,Pl ,Pa ,Q) 

641 1 CALCULATE THE INTEGRANO FOR THE AVOR EXPRESSION 

642 CALL Kncalc(Pa,P! ,Pp ,Xvel Xref .6,Yaw Kn) 

643 | CALCULATE THE COEFFICIENT OF PRESSURE TERMS TO BE MASS AVERAGEO. 
644 | THESE TERNS ARE USED IN THE CALCULATION OF THE LOSS COEFFICIENT. 
645 CALL Coefpress(Pl ,Pp ,Pa ,Xvel ,6,Cos ,Cpt ) 

646 I1CALCULATE THE QUANTITIES TO BE MASS AVERAGED. MULTIPLY THESE VALUES 
647 IBY Kn TO GET THE INTEGRANO REQUIREO TO CALCULATE THE MASS AVERAGED CP'S 
648 CALL Cpintegrand(Pp ,P1t .Pa,6 ,Xvel ,A,B Kn) 

649 ICALCLULATE Pp-P1/OQref FOR PLOTS 

65@ CALL Prefaqref({(Pp,P1 ,Qref ,Pq) 

651 1 CALCULATE STATIC PRESSURE 

652 CALL Staticpress(Pi ,Pa ,Xvel ,6,Ps) 

653 'OEFINE AN ARRAY TO STORE CALCULATEO VALUES 

654 Calc(N,t)=Posit 

6SS Calc(N,2)=Beta 

656 Calc(N,3)=Gamma 

657 Calc(N,4)-Phi 

658 Calc(N,S)=Xvel 

659 Calc(N,6 )=Xref 

662 Calc(N,7)=Vel 

661 Calc(N,9 )=Mach 

662 Calc(N,9)*Yaw 

663 Calc(N,1@)=Kn 

664 Calc(N,11)=Cot 

665 Calc(N,t2)=Cps 

666 Calc(N,t3)«OQref 

667 Calc(N,14)=Uref 

668 Calc(N,1S )=Q 

669 Calc(N,16)-A 

67@ Calc(N,1t7)=8 

671 Calc(N,t8)=Paq 

672 Calc(N,19)=Pa 

673 Calc(N,20)=Fs 


674 Knaray(N )=Calc(N,1@) WANT TO STORE THE Kn VALUE IN AN 

67S 1ARRAY FOR MASS AVERAGING CALCULATIONS 
676 Prbpos(N)«Calc(N,1) Nee a 

677 Aaray(N)=Calc(N,16) i 

678 Baray(N)=Calc(N,17) itera 

679 Scan=N 

GeO NEXT N 


681 Printcalct: OFF END @6Pathi 

682 ICALCULATE ENSEMBLE AVERAGE OF XREF 

683 CALL Xrefensemble(Paavg ,Ppavg,6 ,Xrefavg) 

684 'CALCULATE ENSEMBLE AVERAGE OF UREF 

68S CALL Vrefensemble(Xrefavg,Cp ,Tempavg ,Vrefavg) 

686 ICALCULATE ENSEMBLE AVERAGE OF QREF 

687 CALL Qrefensemble(Paavg ,Ppavg,6 ,Xrefavg ,Qrefavg) 

68s PRINT “se eee eee ee eer ee eee PO ASPHHSRHESHHHRESHESHHESH OEE ERHES ESE EE8” 
689 PRINT °° 

69@ PRINT “ALIGN PAPER IN THE PRINTER. WHEN REAQY FOR A HAROCOPY OF THE ° 
691 PRINT °°" 

BaZ PRINT “CALCULATED DATA, PRESS “"REOUCED DATA"" .* 

693 PRINT °° 

694 PRINT "str ec acess eases eee ea RAPPERS HHHSSESESEESHF EH ESEESES EHO HOSES" 
69S ON KEY 4 LABEL "REDUCEO DATA" GOTO Prntdatal 

696 Spin3: 60TO Spin3 

697 Prntdatal: PRINTER IS Prnter 


698 PRINT “ee seeceraeaeeseseeeeeasseesesesasssssssseen” 
699 PRINT "FILE " Calcfiles 
TAA PRINT “see eseeeetseetaesasasteseeassasseeteteasesenea” 
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701 PRINT °" 
7Q2 PRINT "see cece eee eee ee eee eee EHHHHSEE RES EE EERE RRE RSH HEEESESREEESEEEE®E 


703 PRINT = 


7Q4 PRINT "SCAN PRB BETA GAMMA PHI Xvel 
Xref” 
7@5 PRINT ° POSIT: 


7@6 FOR N=t TD Scan 

707 PRINT USING "40 ,3X ,40.20,3% .MD.3DE ,3X ,.MO.3DE .3X ,MD.3DE ,3X .MD.30E ,3X MD. 3DE 
"aN Calc(N,t) ,Calc(N,2) Calc(N,3),Calc(N,4) Calc(N,S) Calc(N,6) 

708 NEXT N 

789 PRINT *° 


7ta PRINT "@ eee eee eee eee sees Bee FeeFSFFFSSSFFHEHSFFSRFSSCFFEE SERRE EEEE EERE EEE 
eeeesseeecese” 
7tt PRINT °° 
712 PRINT “SCAN Vel Vref Q Qref MACH 
YAW" 
713 PRINT “ 
CEG: 
714 FOR N=t TD Scan 
71S RINT USING °40,3X% ,MD.3DE .3X ,MD.3DE ,3% .MO.3DE .3X (MD SDE 2x (MO SDE 2x onpeoe 
E"iN,Calc(N,7) Calc(Nn,t4) Calc(N,tS) Calc(N,t3) Calc(N,§8) Calc(N,39) 
716 NEXT N 
Tt? PRINT °* 
718 PRINT “see tees eeeeeesee cesses sseeeeeseeeeeeseseseeeeeeeseeesseeeeeeeeeeeres 
@esestesseeeee” 
TiS GERINI = 
720 PRINT "SCAN Pref-Pt/Qref* 
Tet FOR N#=t FO Scan 
V22 PRINT USING °40,3X .MD.30E° IN Calc(N,18) 
1 rae NEXT N 
724 PRINT "= 


725 PRINT “se eee see eee sess eset eeeeeeeeeeeeseeseeeeseeeesseeseeseseseseeeseeese 

eeeeeeeesesen” 

726 PRINT =" 

727 PRINT * ENSEMBLE AVERAGES” 

728 PRINT °° 

ted PRINT "PPAUG PAAV6 TEMPAVG XREF AUG VREF AUG 
QREF AUG" 

73@ PRINT USING °MO.30E .SX ,M30.2Z0E 5X 30.20 ,SX HO. 30E Sx MO. 30E (3% tO SUE a ps 

vg Paavo, lempavg ,Xxrefavg,Vrefavg ,Qrefavg 

TaN PRINTER 1S Seren 


(ae) OUTPUT @Path4iCalc(e) (SERIAL DUTPUT STATEMENT. 
eee) ENO IF 
734 PRINT "ee eeeeveeseeeeeseeteseeseseeeeseeseceseeesseeseseseeeseseseeesseeees” 


to5 PRINT °° 

736 PRINT “TO CALCULATE THE CP*S FOR THE BLADE OATA, PRESS ~ BEACESGE > | 
or PRINT “ PRESS ""60 DN"" TO CONTINUE.” 

738 PRINT “* 


739 PRINT "#e@ ®@e eee eeeeeeeeeeeseeevreeeeeteseeseeeseeeeeeeseeseeeeeseeeeeeeseeeees 


748 ON KEY ? LABEL “BLAGE CP'S” 6DID Calculatecp 

741 ON KEY 4 LABEL "60 ON” GOTD Loadoptton2 

742 Spin4: 6DTO Spin4 

743 Calculatecp: MASS STORAGE IS “/CLASSICK/REOQOATA* 

744 PRINT ** 

VAS PRINT “ee eevee eeseeeeeeeeeeseseeeeeseseeseseseseeeeeseeeeeeseeeeseseeee” 
746 PRINTS >> 

747 PRINT “ENTER THE FILE NAME OF THE BLADE OATA SCALEO IN ENGINEERING UNITS" 
749 INPUT ScIbladfile$ 

749 PRINT “se ee eee cere eee ee ese eeeaeseseeseeeeeseeeseseeeeeeeseeseeeesesesese” 
75@ ASSIGN @PathS T0 ScIbladfiles 


7 oil PRINT > 
752 PRINT “ENTER THE FILE NAME TO STORE THE MASS AVERAGEO CP'S CALCULATED” 


753 PRINT "“FRDM THE BLAOE OATA.°* 
754 INPUT Bladcalc$ 


120 


35 
756 
757 
oe 
uo9 
762 
761 
762 
763 
764 
76S 
766 
767 
768 
769 
770 
774 
772 
q713 
774 
a75 
776 
LEY 
778 
779 
788 
781 
"82 
763 
784 
785 
786 
787 
7898 
169 
792 
791 
Tos Fr 
493 
794 
795 
796 
wot 
798 
199 
B22 
BO) 
BO2 
803 
B04 
BGS 


CREATE BOAT Bladcalc$ ,10@ 


ASSIEN @Path6 TO SladcalIc$ 
OIN Prntdatal(! ,48) 'OIMENSION STATMENTS FOR BLAOE ARRAYS 
TARE HERE SO ARRAY SPACE IS ONLY ASSIGNEO 


1IF BLADE OPTION IS SELECTED. 


OIM Cpomassavg( 48) 

MAT Cpomassavg= (@) 

MAT Prntdata~ (@) 

PRINT “Se ee eee eee SPPFFOHHEFECHSESHSSSHF HFEF SSEFEFEFEE FEES EH EH ETE SE” 
PRINT “°* 

PRINT "ENTER THE LIMITS OF INTEGRATION i.e., THE LOWEST TO THE ° 
PRINT “HIGHEST SCAN NUMBER DESIREO.” 

PRINT °° 


PRINT “#2 OO PPPS HFSS ESFHSHFSHEESHEFHFEFEFEFESFSS SSF R SES HSER SESE REE ESE 


PRINT *°* 

PRINT “ee ee ees esse eee eeeseeeeeeeeeseeeeseeseeeseeeseeeseeeeeseeeseeee” 
PRINT °° 

PRINT “ENTER THE LOW SCAN” 

INPUT Lowpoint 

PRINT "se SSS SFSSSHSHSFSSSSSHSHSSSSESSSSSSSSSSSSSSSFessesesesevtrseseseeseseaaege™ 
PRINT °° 

PRINT “ENTER THE HIGH SCAN” 

INFUT Hipoint 

LOAOSUB ALL FROM “/CLASSICK/ROUTINES/LOSSCALC” 

1INTEGBRATE A 

CALL Oatint(Lowpoint Hipoint ,Aaray(*) Prbpos(#) Aintg) 

'INTEGRATE 8 

CALL Ostint(Lowpoint ,Hipoint Baray(*) Prbpos(*) Bintg) 

1INTEGRATE Kn 

CALL Oatint(Lowpoint ,Hipoint ,Knaray(*) ,Prbpos(*) Knintg) 
Al=Aintg/Knintg 

Bl=Bintg/Knintg 

ENTER @PathSePrntdata( ® ) 

Po=Prntdata(t,3) 

FOR N=Firstbladeprt TO Lastbladeprt fOBTAINEO FROM PORT ASSIGNMENT SHEET 
Plocal=Prntdata(! ,N) 

CAEL Cpocale( Al 8! .Pp,.Plocal ,C) 

Comassavg(NdeC 

NEXT N 

PRINT “ee seer eee eee PPO HHEHHEE ESHER HFHFVESTESER ECE ES REFEREES ER EERE DY" 
PRINT °" 

PRINT "ALIGN PAPER IN PRINTER ANO PRESS “"“BLADE OATA"" FOR HARO COPY" 
PRINT * OF BLAOE MASS AVERAGEO COEFFICIENTS OF PRESSURE.” 

PRIAT => 


PRINT “ee Pe cee eee eee POPPE ESE HFEESHFEH SPE SEER SESESEHH REFER ESHER VERB EOR" 


ON KEY 1! LABEL "BLADE DATA” GOTO Prntbladedata 


nn 


Spins: 60T0 Spins 
Prntbladedata: PRINTER IS Prnter 


PRINT “se eteeeseseseseseseeseeseeseesseeeeses” 


Feint ) GLOOE Cre FILE °* Bladcalc$ 


PRINT “@e Pee SEESEHHHHH EH ESEEHE HSH HSS SSPE SHESSES OSTEO S SSPE SSEREVEREES 


B26 
807 
BOB 
Bag 
B12 
Bi 
Bl2 
813 
B14 
B15 
BIE 
B17 
B18 
819 


PRINT °° 
PRINT "“SCANIVALVE MASS AVERAGED COEFFICIENT" 
PRINT “PORT OF PRESSURE 


FOR N=Firstbladeprt TO Lastbladeprt 

PRINT USING °20,15X ,MD.30E°sN ,Comassavg(N) 

NEXT N 

OUTPUT @Path6tCpomassava(®) ISERIAL OUTPUT STATEMENT 


Loadoption2: PRINTER IS Seren 


PRINT “eee eee ee eee eee ee HOEK SEEHHEHFHSHESESESESSSSESESESHES ESS ESEOSE” 
FRINT °° 

PRINT “TO LOAO PROGRAM THAT CALCULATES THE AVOR ANO LOSS COEFFICIENT,” 
PRINT °° 

PRINT “PRESS “"LOSS"". PRESS °"60 ON"" TO TERMINATE THE PROGRAN. " 
PRINT °° 


iz 


FRINT "seeseoteeseeeeeeeesreeeeeeeeaeseeeeeeeeeeseeeeeeeneeeeetesseeesesesen”™ 


ON KF 
ON K 
Spitn6: 
Loadup 


Fin: 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ENO 


EY 1 LABEL “LOSS” GOTO Loadup2 

EY 4 LABEL °60 ON* GOTO Fin 
GOTO Spiné 

2: MASS STORAGE IS °“/CLASSICK/PROGS” 
LOAD “LOSS* ,1@ 

PRINT °° 


"seececeeeseeeeeeeeeeseeeeeeeeeseseseeesenseseseseeeeeeseseteeaesea 
_ ENO OF PROGRAM - 


"see eeeeesesseeeeeeeeseeeeeeeseeseseseeeeseeeeeeeeeeeeeeteeeeeecea” 
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B7.3 Reduction Program LOSS 


{PROGRAM LOSS 


ITHIS FROGRAM USES VALUES FROM THE CALC ARRAYS GENERATEO BY REOUCING 


1SCALEO DATA IN PROGRAN CALC. 


SUBROUTINES INTEGRATE THESE VALUES ANO A 


ISTATIC FRESSURE RISE COEFFICIENT ,AVOR 8&8 LOSS COEFFICIENT 1S CALCULATED. 
IMUCH OF THE COOING WAS PREVIOUSLY CONMENTEO ON IN PROGRAM ACQUIRE ANO 


{FROGRAM CALC. 
DPTION BASE 1! 
DIM Calc1(10@,2S) 


DIM Calcul 108,25) 
DIM Fosit( 100) 
DIM Positu( 100) 
DIM Kn( 108) 

DIH Knul 10@) 

OIH Cpt te) 

OIH Cpotu(1@@) 

OIH Cos(1@@) 

OIH +0108) 


DIH 70168) 

O1M Cotxkn( 100) 
DIM Cptuxknu’ 168) 
DIN Cosxkn( 160) 
DIN xkn0 160) 

BIN Zxknul 160) 
MAT Catcl= (@) 
MAT Calcu= (6) 
MAT Posite (@) 
MAT Fositu= (@) 
MAT Kn= (@) 

MAT Knue (0) 

MAT Cpt (@) 

MAT Cptu= (0) 

MAT Cos= (@) 

MAT Cptxkn= (@) 
MAT Cotuxknue (8) 
MAT Cosxkn= (@) 
MAT Yxkn= (@) 

MAT Zxknu= (@) 


INOTE THAT u ANO I OESIGNATORS OISTINGUISH 
1THOSE VALUES FROM UPPER SURVEY AND LOWER 
ISURVEY STATIONS RESFECTIVELY. 


{SEE TABLE I DF CLASSICK THESIS Knek. 


{THESE VALUES FREVIOUSLY DEFINED IN “CALC” 


(AN INTERHEDIATE OUSNTITY IN THE STATIC 
1FRESSURE RISE COEFFICIENT CALCULATION. 
Le * e 

ICONBINED VALUES TO HARE THE INTEGRATIONS 
{HORE EXFLICIT TO THE FROGRAHHER. 


LOADSUB ALL FROM °/CLASSICK/ROUTINES/LDSSCALC” 
MASS STORAGE IS "“/CLASSICK/REDDATA’ 
FRINT “ENTER THE NAME OF THE FILE CONTAINING THE CALCULATEO DATA FROM THE" 


PRINT “LOWER PROBE" 


PRINT “ee ee eeoreraeseceeseeeeeeveereeeeeveeesesereeeevegeevereeeeereeeeaeE” 


INPUT Calclfiled 


ASSIGN @Path! TO Calcifiles 


ENTER @PathtiCalci(e) 
FOR N=! TD 182 
Posit(Nd=Calcl(N,!) 
Kn(N )#Calcl(N,1@) 
Cot(Nd=CalcI(N,t!) 
Cos(Nd@CalclI(N,12) 
PaleCalcI(N,19) 
Psl=Calcl(N,20) 
Ol-CalcI(N,1S) 

IF Qle@ THEN Skipy 


YON )=(Pal-Ps1)/Q1 
Cotxkn(N )=Cpt(NdeKn(N) 
Cosxkn(N )=Cos(N)eKni( Nn) 
Yxbhn CN doV(N}eKn(N) 
NEXT N 


IPREVENTS A DIVISION BY ZERO IF TIle 
1ARRAY 15 NOT ENTIRELY FILLED WITH 
1NONZERD VALUES 1.e., TOTAL DATA POINTS 
{TAKEN OFO NOT EQUAL 100. 


JZ 3 


PRINT "ENTER THE NAME OF THE FILE CONTAINING THE CALCULATED DATA FRO 


23t Skipy! 

M THE” 

ese PRINT “UPFER PROBE” , 
233 PRINT UU UUVEPETEUERURE TIS eee eee 
234 INPUT Calcufiled 

235 ASSIGN @Path2 TO Calcufiled 

236 ENTER @Path2Z1Calcul®?) 

237 FOR N=-t TO 108 

238 Positu(NeCalcu(N,t) 

239 Knul(N deCalcu(Nn,t6) 

240 Cptu(N)eCalcu(N,tt) 

241 PaueCalcu(N.19) 

242) PeueCatcu(N,28) 

243 OurCatcu(N tS) 

244 IF Oue® THEN Skipe {SANE REASON FOR STRUCTURE HERE 
245) 2(N)@(Pau-Pau)/Qu tAS FOR QI. 

246) Crotuxbnul( Ne Cptul(N)eKnu(N) 

247) Ixknul(NeZ0N)¢Knu(N) 

248 NEXT N 

249 Skipz: PRINT °° 

250 FRINT “ENTER THE LIMITS OF INTEGRATION FOR THE LOWER PROBE SURVEY” 

2St PRINT °°” 

252 PRINT “eeeeeeeeerereeeeeeeeeeeeeeeeseeeeeeeeeeeeeseseseeeeseeseseeesessesee” 
230 INPUT “ENTER THE FIRST POINT’ Lowpoint 

254 INFUT “ENTER THE LAST POINT” ,Hipoint 

255 1 CALL THE INTEGRATION ROUTINE 

256 CALL Datint (Lowpoint Hipotnt .Kn(*) Posit(*) Denominator ) 

250 CALL Datint(Lowpoint ,Hipoint ,Cotxkn(*) Fosit(s) Intega) 

258 CALL Datint(Lowpoint ,Hipoint Cosxkn(*) Posit(*) Intege) 

2539 CALL Datint (Lowpoint ,Hipoint ,Y¥xkn(e) Posit(*#) Intagy) 

263 FRINT °° 

264 FRINT "ENTER THE LIMITS OF INTEGRATION FOR THE UPPER PROBE SURVEY" 

265 PRINT °° 

266 FRINT “ee eceereseeeeresetesesetoseeeseeeeseeeaeseeeveseseesesseaveseeeeeeD® 
267 INPUT “ENTER THE FIRST PDINT® Lowpoint 

268 INFUT “ENTER THE LAST POINT’ ,Hipoint 

269 CALL Datint(Lowpotnt ,Hipoint Knul*) Positul®) Numerator ) 

270 CALL Ostint(Lowpotnt ,Hipotnt ,Cotuxtnule) Positule) Integb) 

Z27t CALL Datint(Lowpoint ,Hipoint ,Zxknul*) Positul®) ,Integz) 

272) Cpo2"(Integz/Denominator )#t(Intagy/Danominator ) 

273) Avdr=Numerator/Denominator 

274 PRINT “STATIC PRESSURE RISE COEFFICIENT’ 

27S PRINT USING °MOD.30E"1Cp2 

276 PRINT °° 

27? FRINT "AVOR® 

278 FRINT USING "MD.30E"1Avdr 

279 PRINT ** 

282 We(Intega-(t/Avdr de(Integb))/CIntaga-Intege) 

28 FRINT "LOSS COEFFICIENT® 

282 PRINT USING °"MO.30E° 1W 

283 PRINT “ee eerses eects etreseeeteteseseeeseseeseeeeeseeeseeeteseseeeseeseE” 
284 FRINT °° 

285 PRINT ° END OF PROGRAM’ 

286 FRINT °* 

287 PRINT ahha ec 2 COOGEE 
7A END 
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B7.4 Subprogram SUBACOQUIRE 


' IFILE SUBACQUIRE 


19 1THIS FILE CONTAINS THE SUBPROGRAMS FOR POSITIONING THE SCANIVALVE 
28 1PORTS ANO REAOING THE OVUM, = 

720 SUB Scnvportposit(Scnv ,Dp ,Scnhmsave ,Scnstpsvec) 1THE STRUCTURE OF THIS 
721 1SUBPROGRAM IS SIMILAR TO PREVIOUS 
722 {ACQUISITION PROGRAMS WRITTEN AT THE 
723 1TPL. SEE GEOPFARTH THESIS. 

725 OPTION BASE ft 

726 COM /PositvrbIs/ Svc ,Sen 

727 Posit:OUTPUT Svc USING “8 K°sSenv 

728 Z=SPOLL( Sve) 

729 U=BINANO( 2,15) 

730 VeSHIFT(2 4) 

73) T=BINAND(V,7) 

Tits P={OeT+U {P IS THE PRESEN! PORT THAT THE 

733 ISCANIVALVE IS ON. 

735 CLEAR Sve 

736 IF PeOp THEN Retrn 

737 IF P>Op THEN 

738 OUTPUT Sen USING “22° sScnhmsvc ftHOME THE SCANIVALVE 

739 CLEAR Sen 

742 WAIT 4 TALLOW 4 SECONDS FOR THE HOME TO 
74) 1COMPLETE. . 
743 60TO Posit 

744 ELSE 

745 OUTFUT Sen USING “22°rScnstpsvce ISTEP THE SCANIVALVE 

746 CLEAR Scn 

747 WAIT .f WAIT 1/18 SEC BETWEEN STEPS 

748 GOTO -Posit 

749 ENO IF 


750 Ratrn: SUBEND 
751 SUB Readdvnm(Op ,Chanlasign) 


7S2 OPTION BASE ft 

753 COM /PositvrbiIs/ Svc ,Scn 

754 COM /Raadvrb!s/ Scan,Ovm Scanvb(! ,48),Tempchnrd ,Yawchnrd ,Scenyawchn ,Scnte 
mpchn ,Scenrdavcb ,Scanva(! ,48) ,Senrdsvea ,Noofprbs ,Yawchnrdu ,Senrdsve 

75S COM /Raadvrbis/ Yawchnrd! ,Scnyawchnu ,Scnyswchn! ,Maxdi f 

756 OUTPUT Scn USING °Z2°1Chanlasion ICHANLASIGN TAKES ON THE VALUE 
797 1ASSIGNEO TO IT BY THE CALLING 
758 ISTATENENT IN THE MAIN FROGRANM. 
760 OUTPUT OvmrF ir 7m3a8hOt3 ISTANOARO SETTING FOR THE OVH. 
761 1SETS THE FUNCTIONS ON THE PANEL. 
763 Sample: OIM ACS) 

764 MAT A= (@) 

76S FOR I=! 10 5 1TAKE S REAOINGS AND STORE IN THE 
766 1"A" ARRAY 

766 TRIGGER Ove 

769 ENTER OvmtA(T) 

770 Avo=SUM(A)/1 1AVERAGE THE S REAOINGS 

771 Oev=A(1)-Avo 

772 IF Oev>Maxdif THEN TERROR TRAP FOR SPURIOUS OVM REAOINGES 
773 PRINT “SAMPLE EXCEEDED MAXIMUN DEVIATION ALLOWEO-SAMPLE RETAKEN® 
774 G0TO Sanple 

775 ENO IF 

776 WAIT .3 

777 NEXT I 

778 IF Noofprbs=! THEN Readone 

779 IF Chanlasion=Scnrdsvcb THEN 

788 Scanvb(! ,Dp )=SUM(A)/5 

761 ELSE 

782 IF Chanlasion=Scnyawchn! THEN 

783 Yawchnrdl=SUM(A)/S 

764 ELSE 

78S IF Chanlasion=Scnyawchnu THEN 2 

766 Yawchnr du=SUM(A)/S 


Lao 


787 ELSE 


768 6010 Tempraad 

769 ENO IF 

798 ENO IF 

791 ENO IF 

792 Readone: IF Chanlestgn=Scnrdeve THEN 
793 Scanvb( 1 Op )=SUM(A)/S 

794 ELSE 

79S IF Chanlastgn=Scnyawchn THEN 
796 Yawchnr d=SUM(A)/S 

797 ELSE 

798 Tempread: Tempchnr d=SUM(A)/S 

799 END IF 

800 ENO IF 

Bel IF Chanlestgn=Senrdsvca THEN Scanva(! Dp )=SUM(A)/S 


8@2 Retrn: CLEAR Scn 
8@3 SUBENO 
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B7.5 Subprogram SUBCALC 


1 IFILE SURCALC _ 
12 1THIS FILE CONTAINS ALL THE CALCULATION SUBROUTINES CALLED BY THE 


28 IDATA REDUCTION PROGRAM CALC. 
7986 SUB Bocalc(Pa ,Pt P23 ,P4,PS Sata Gamma) 

799 Beta=(PI-P23)/(PttPa) 

B20 Gammac(P4-PS )/(P1-P23) 

Bel SUBEND 

882 SUB Xphicalc(Gata Gamma ,Xvel ,X(*) Pht ,P(e)) 
883 OPTION BASE | 

804 OIM E(6) 

6eS OIM F(6) 

8@6 HAT E= (@) 

607 MAT F= (6) 

8e6 FOR Je! 10 6 

889 ECF yeXCt J dtXC 2) J eGammatX(3 J deGamma*24xX( 4, J )eGamma*34+X(S J )*Gamma*4+x(6, 


J)*6amma‘S 
618 FCS =PCE JOP (2 3 eGammatP(3 J )eGamma*24P 4 J )eGamma*34+P(S .J)*Gamma*44+P(6, 
J)*Gamma*S 


Bit NEXT J 
Bi2 XvaleE(t 4E(2 )eBetatE( 3 Bata 2+E( 4 eBata 3t+E(S Beta 44+E(6 )eBeta’S 


613 PhizFCI)+F (2 eBatatFE(3)eBeta*2+F( 4 )eBata 34F(S )eBata 44+F(6 )*Bata’S 
B14 SUBEND 

61s SUB Umaqcalc(Xvel ,Cp Temp ,6 Val ,Mach,Pl Pa ,Q) 

B16 Vel-Xvale(2*Cpe778932.174*Tamp)*.S 

B17 Mache(((Xvel*2)/¢9-Xvel°2))0(2/(6-1))9°.5 

B18 Q=(P14+Pa )e(6/(6-f)eXval*26((1-Xval’*2)°(1/(6-1))) 
619 SUBEND 

620 SUB Xrafcalc(Pa,Fp ,G,Xraf ) 

B21 Xrefe(t-(Pa/(Pp4+Pa))*((6-1)/6))*.5 

B22 SUBEND 

B23 SUB Kncalc(Pa Pl Pp Xvel Xref ,6,Yaw Kn) 


624 Kn=((Pt+Pad/(PptPa) detXval/Xref doc (i-Xvel*2)/C'-Xref*2)9°C97(G6-1))) 
*COS( Yaw) 
825 SUBEND 


826 SUB Coefpress(Pl Pp Pa ,Xvel ,6,Cps Cpt) 
B27 Cotet(PitPad/(Pp+Pa) 

626 Crise((PI+Pa det (i-Xval*2 )*°(6/(6-1))))/(Pp+Pa ) 
629 SUBEND 

6S6 SUB Ensenmble(Fp ,Pinitial ,Pa Painitial ,Temp ,Tinitial .Ppavg ,Paavg,lempavg,N) 
657 Foe=<Po+Pinitial 

856 Poavg"Ppa/N 

659 Pitnittal-Ppa 

668 Te=Tempt+Tinitial 

BEI Tempavgrla/N 

B62 TinttialeTe 

663 PaeePaiPainitial 

664 Pasvo-Paa/N 

66S Painitial=-Pae 

B66 SUBEND 


aa 


867 SUR Xrefensemble(Pasvg ,Ppavg,G .xXrefavg) 

868 Xrefavge(l-((Paavg)/(PpavgtPaavg) )°((6-1)9/6))°.5 

869 SUBEND 

879 SUB Vrafensemble(Xrefavg,Co ,Tempavg,Vrafavg) 

871 VrefavorXrafavge(2*Cp* Fampavg?778#32.174)°.S 

872 SUBEND 

873 SUB Orafensambla(Paavg .Ppavg,6 Xrefavg Orefavg) 

874 Qrefavgr(PpavgtPaavg )#(6/(6-1))*Xrefavg*2¢(1-Xrafavg’2 )*(1/(6-1)) 
875 SUBEND 

876 SUB Qvrefcalc(Xref ,Cp,Temp ,6,Ppo,Pa ,Oraf Vref) 

877 VrefexXrafe(2*Cp9778e32.174*#Temp)*.S 

878 Oraf=(Pat+Pp )#(6/(6-1))e(Xraf*2 be( (1-Xraf*2)°C1/(6-1))) 
879 SUBEND 

860 SU8 Cpintegrand(Pp ,PI ,Pa,6 ,Xval ,A,8 ,Kn) 

881 M=Pp/((P14Pade(6/(6-1) eXvel*2e¢(1-Xval*2)°C1/(6-19))) 
8B2 Ni-(Pa/(PI+Pa) )-(¢1-Xvel*?7)°(6/(G6-1))) 

863 N2=-(6/(6-1 ))eXvel*2e((t-Xval*2)°C1/(6-1)9)) 


884 N=N1/N2 

88S A=HeKn 

886 B=Nekn 

887 SUBEND 

888 SUB Crcalct(Al ,BI Pp ,Plocal ,C) 
689 C-((Plocal/Pp )eAl )481 

890 SUBEND 

920 SUB Slaticpress(Pl Fa ,Xvel ,6,Ps) 
312 Pao(PI+tPa de i-Xval*2)°(6/(6-1)) 
920 SUBEND 

920 SUB Frefaqref(Fo.Pl ,Oraf Pq) 

940 Foe(Pp-Pl)/Oraf 

958 SUBEND 
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By soeeeotioprogram LOSSCALE 


1 
18 
20 
272 
PU 
287 
297 
307 
S17 
321 
322 
323 
324 
32S 
626 
S27 
337 


fE TEE EOSSCALE 
1THIS SUBPROGRAM IS AN ADAPTATION OF SHREEVE'S INTEGRATION ROUTINE 


IGIVEN IN APPENDIX B OF NPS-S7SF73071A 

SUB Datint(Lowpotnt ,Hipoint ,D(*) ,Posit(#) Datint) 
OPTION BASE 1! 

DIM AC 100) 

DIM B( 100) 

DIM C( 100) 

DIM Dint( 100) 

MAT A= (0) 

MAT B= (@) 

MAT C= (@) 

MAT Dint= (0) 

N=Hipoint-!I 

Nm t=N-1 

FOR I=Lowpoint+! TON 

ACT 2 C1/(PositC1+t )-PositCI-t)) eC CC DCT 41 -DCT))/CPosit( +l )-Posit( 1) ))-¢¢ 


Dit )-DGl-1))/(Posit(l)-Posit€I-1)))) 


347 
oo 
360 
361 
S52 
S53 


BCT) =(C (OCT )-OCI-1))/0Posit( 1] )-Posit¢I-1)))-CCPosit(l +Posit(I-t)*ACT)) 
COT OCT -CACT #Posit( 1 )*2)-( BCT be Posit(d)) 

NEXT I 

Datint=0 


FOR I[=Lowpoint+! TO Nomi 
Dint( P=CACT AACE +) de (PositC 14+ )°3-Posit( 1] )*°3)/64+(BC] 4BCT4+1) )e (Posit( 14 


Poc-Postan tl) 2y/S4( CCT ACC 141) pe (Posit( i+) )-Posit(l ))/2 


364 
367 
o77 


Datint=Datint+Dint(lI) 


NEXT I 
Dimtet =A 2 )*(Positt(2 ) 3=Posittl )°3)/3+Bt2 )*(Posit(2)°2-Positt! )°2)/2+C(2) 


#(Posit(2)-Posit(!)) 


oo? 


Dint(N)=ACN)*#(Posit (N+! )°3-Posit(N)°3)/34+BCN De (Posit( N+! )*2~-Posit(N)*2 )/24 


CON eC PositCN+! )-Posit(N)) 


oot 
407 


Datint=Datint+Dint(l )4Dint(nN) 
SUBEND 
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B7.7 Plot Program PREEFRGREE 


I 1PROGRAM PREFPQREF 

fa 'PROGRAM FLOTS PREF-PT/QREF VS FROBE POSITION 

4 MASS STORAGE IS “/CLASSICK/REOOATA" 

7 INPUT “ENTER THE NAME OF THE REDUCED DATA FILE" ,Calcdat$ 


1@ ASSIGN @Fath!i TO Calecdat$ 

11 OPTION BASE 1 

12 DIM Cale(1@@,25) 

17 MAT Calce= (@) 

2@ Scane31 

26 ENTER ®Pathi Calc) 

$2 GINIT 

6@ PLOTTER IS CRI," INTERNAL” 

7@ GRAPHICS ON 

a5 X_gdu_max*#I@@*MAX( 1 RATIO?) 

74 Y_gdu_max=1@@*MAX( 1, 1/RATIO) 
75 LORG 6 

76 FOR le-.3 70 .3 STEP SI 

wa MOVE X_gdu_max/2+4I ,Y_gdu_max 
78 LABEL "Pref-Ptl/Qref VS PROBE DISPLACEMENT” 
79 NEXT I 

83 DEG 

84 LOIR 9@ 

gS MOVE @,Y_9Qdu_max/2 

86 LASEL °Pref-Pt1/Qref* 

87 LOIR @ 

88 MOVE X_gdu_max/2,.1*Y_gdu_max 
89 CSEZE 34 

St LABEL “8LAOE-TO-8LAOE (1n)* 
2 VIEWPORT .1°X_gdu_max,.99°*X_godu_max,.'!S*Y_gdu_max,.9*Y_gdu_max 


94 FRAME 
35 WINOOW @,.3,0,.7 
96 AXES ala. O10 0.5.10 <2 


97 CLIP OFF 

98 CSIZE 2.5,.5 

99 LORG 6 

122 FOR [-@ 10 3 STEP .S 
1@1 MOVE 1I,-.@! 

1@2 LABEL USING “8 K's] 

1@3 NEXT | 

104 LORG 8 

1@S FOR I=1.@ TO @ STEP -.! 
1@6 MOVE -.@1,1 

1@7 LABEL USING °00.0D°1! 
188 NEXT I 

1@9 FOR Kel TO Scan 

113 PLOT CaletK, 1), Calc(k 16) 
114 NEXT K 

117 ENO 


wis 318, 


Bane eUOmeP lr OGtame bE LAPOS IT 


[PROGRAM BETAPOSIT 


| 

2 'PROGRAM PLOTS BETA VS PROBE POSITION 

4 MASS STORAGE IS “/CLASSICK/REDOATA™ 

7 INPUT “ENTER THE NAME OF THE REDUCED DATA FILE“ ,Calcdat$ 


12 ASSIGN @Path!i TO Calcdat$ 
11 OPTION BASE 1! 

12 DIM Calc(1@@,25) 

17 MAT Calc= (Q) 


20 Scan=31 
26 ENTER @Path!isCalc(?) 
52 GINIT 


62 PLOTTER IS CRT,“INTERNAL” 

72 GRAPHICS ON 

73 X_gdu_max=10Q0*MAX(1 RATIO) 
74 Y_odu_max=1QQ*MAX( 1 ,1/RATIO) 
75 LORG 6 

76 FORS@i=-.35 TO 2a STEP .1 

qi MOVE X_gdu_max/2+I ,Y_gdu_max 
78 LABEL “BETA! VS PROBE DISPLACEMENT” 
ws NEXT I 

B3 OEG 

84 LOIR 9@ 

BS MOVE @,Y_gdu_max/2 

86 LABEL "BETA! (dag)° 

B7 LDIR @ 

88 MOVE X_qdu_max/2,.1*Y_gdu_max 
89 Cole! 

5] LABEL "BLAOE-TO-BLAOE (1in)’ 
92 VIEWPORT .1°X_gdu_max,.99*X_gdu_max,.15*Y_ogdu_max ,.9*Y_gdu_max 
94 FRAME 

95 WINOOW @,3,-50,-45 

96 Ave Smolese 0 ,.-50.5,5 2 

ai CLUIP OFF 

98 CIIZE 2.9 705 

99 LORG 6 

1@@ FOR I=@ TO 3 STEP .S 

1Q1 MOVE, 17,-S8.2 

102 LABEL USING "& Kg! 

103 NEXT } 

104 LORG 8 

105 FOR I=-50.0 10 —45.0 STEP 1 
1@6 MOVE -.@1,I 

107 LABEL USING °DDD.D* 1! 

18 NEXT I 

109 FOR K=! TO Scan 

1t3 PLOT Calc(K,1),-CalIc(K ,9) 
114 NEXT K 

117 END 


J: Silk 


B7.9 Plot Program VVREFSPAN 


IPROGRAM VVUREFSPAN 

tPROGRAM FLOTS VI/VREF VS PROBE POSITION FOR A SPAN-WISE 
MASS STORAGE IS "“/CLASSICK/REDOATA” 
INPUT "ENTER THE NAME OF THE REOUCED DATA FILE” ,Calcdat$ 
ASSIGN ®@Path2 TO Calcdat$ 

OPTION BASE | 

DIM Cale(:3@ ,2S) 

MAT Calc= (@) 

Scan=42 

ENTER ®Path2;Calc(e) 

GINIT 

PLOTTER IS CRT," INTERNAL” 

GRAPHICS ON 
X_gdu_max=!1@@*#MAX(1 RATIO) 
Y_gdu_max=!8@*eMAX(1,1/RATIO) 

LORG 6 

FOR I=-.3 TO .3 STEP .1I 

MOVE X_gdu_max/2+I ,Y_gdu_max 

LABEL °V1I/Vref VS PROBE DISPLACEMENT” 
NEXT I” 

DEG 

LOIR 92 

MOVE @,Y_odu_max/2 

LABEL "V1I/Vref” 

LDIR Q 

MOVE X_gdu_max/2,.1*#Y_gdu_ma~x 

CSIZE 3.1 

LABEL "SPAN (in) ° 


SURVEY 


VIEWPORT .1°X_gdu_max ,.99*X_odu_max ,.15*Y_gdu_max ,.9*Y_gdu_max 


FRAME 

WINQOOW -S,S,1,1.5 
AXES 1,.@01,-S,1.2 
CLIP OFF 
CSlverreo eo 

LORG 6 

FOR I<S TO -S STEP -1t 

MOVE 1,.99 

LABEL USING "8 K"1I 

NEXT 1 

LORG 8 

FOR I-15 10 1.@ STEP -.1 

MOVE -S.0@5S,I 

LABEL USING "00.00"31 

NEXT I 

FOR K=! TO Scan 

PLOT Calc(K,t) Calc(K ,7)/Calct(K ,14) 
NEXT K 

ENO 


,t 18.2 
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B7.10 Plot Program VVREFUSPAN 


FFROGRAM VUREFUSPAN 


1 

2 IPROGRANM PLOTS V2/VREF VS PROBE POSITION FOR UPPER TRAVERSE SPAN-WISE 
3 1 SURVEYS 

5 MASS STORAGE IS "“/CLASSICK/REDDATA" 

6 INPUT "ENTER THE NAME OF THE REDUCED DATA FILE” ,Calcdat$ 

7 ASSIGN @Path2 TO Calcdat8 


bs) OPTION BASE |! 
12 DIM CalIc(10@,25) 
1 MAT CaIc= (@) 


12 Scan=38 
14 ENTER @Path2sCalIc(#) 
5Q@ GINIT & 


62 PLOTTER IS CRT,° INTERNAL” 

72 GRAPHICS ON 

73 X_Qgdu_max=1@@*#MAX(1 ,RATIO) 

74 Y_gdu_max=1/@@eMAX( 1 ,1/RATIO) 
75 LORE 6 

76 FOR I=-.3 70 .3 STEP .| 

70s MOVE X_gqdu_max/2+I ,Y_gdu_max 
78 LABEL °“V2/Vref VS PROBE DISPLACENENT” 
78 NEXT I 

B3 DEG 

84 LDIR 9@ 

BS MOVE @,Y_oqdu_max/2 

B6 LABEL “V2/Vref" 

87 LDIR @ 

88 MOVE X_gdu_max/2,.1*Y_gdu_max 
89 GSl7e 3,1 

31 LABEL “SPAN (in) ° 

92 VIEWPORT .1*X_gdu_max,.99*X_gdu_max,.15*Y_gdu_max ,.9*Y_gdu_max 
94 FRANE 

35 WINDOW -S,5,.5,1.0 

96 AXES 1,.01,-S,.5,1,10,2 

a7 CLIP OFF 

98 CSIZE 2.5 ,.5 

99 LORG 6 

100 porn 1=5 10 -S STEP -1 

11 MOVE I,.49 

102 LABEL USING “8 K"s! 

103 NEXT I 

104 LORG 8 

1@5 FOR T-1),0° 70 .S STEP ~.1 

16 HOVE =-5,05 1 

1Q7 LABEL USING "DD.0D"s! 

1@8 NEXT I 

109 FOR K=1 TO Scan 

113 PLOT Calc(K,1),Calc(K ,7)/Calc(K 14) 
114 NEXT K 

117 END 
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B7.1]1 >Plot Program CPBLADEPIOL 


1 1PROGRAM CPBLADEPLOT 
2 IPROGRAM PLOTS MASS AVERAGEO BLAOE COEFFICIENT OF PRESSURE AGAINST 
3 'THE FRACTION OF CORO X/C FROM THE LEAOINEG EDGE. 
5 MASS STORAGE IS °/CLASSICK/REODOATA” 
it INPUT “ENTER THE NAME OF THE FILE CONTAINING THE BLADE CP’°S"* ,Cpofiles 
12 ASSIEN @Pathi TO Cofiles 
11 OPTION BASE ! 
12 OIM Comassavg( 48) 
1S OIM Xoc(22) 
16 MAT Cpomassavgo (@) 
19 DATA 98.6,94.6 90.8 ,66.6,62.6 ,78.8,71.5,64.1 56.7 ,49.3 41.9 34.3 26.9,19.6 
wl2.2,0-0, 4.0.0.2 .).b 58 
22 REAO Xoc(#) 
26 ENTER @Path!i1Cpomassavg(® ) 
G4 6 INIT 
69 PLOTTER IS CRT," INTERNAL” 
72 GRAPHICS ON 
7s X_odu_max=#1@0*MAX(1 ,RATIO) 
74 Y_gdu_max=100*#MAX(1,1/RATIO) 
ras) LORG 6 
76 FORst=2 5° 10: 235512 2 
77 MOVE X_gdu_max/2+I,Y_gdu_max 
78 LA8EL "Cp VS PERCENT CHORO” 
79 NEXT I 
83 DEG 
64 LOIR 92 
8S MOVE @,Y_gdu_max/2 
86 LASEL "Cp* 
87 LOIR @ 
88 MOVE X_gdu_max/2,.!*Y_gdu_max 
89 CSIZE 3,1 
3H LABEL "x/C PERCENT CHORO”’ 
Z VIEWPORT .1°X_gdu_max ,.99*X_gdu_max ,.15*Y_gdu_max,.9*Y_gdu_max 
94 FRAME 
9S WINDOW @,100,1.@,-1.6 
96 AXES 5.4.2.0 .120. 2-2 2 
97 CLAP OFE 
98 CSIZE 235.45 
SES, LORG 6 
10Q FOR J=@ TO !0@ STEP 120 
121 MOVE J 1.02 
1Q2 LABEL USING "8, Kul 
123 NEXT J] 
104 LORG 86 
1@S FOR J=-1.6. 10 1.8 STEP .4 
1@6 HOVE == 26.71 
107 LABEL USING "00.00": 1 
128 NEXT J] 
1@9 FOR Nel TO 2@ 
113 PLOT Xoc(N) ,Comassavg(Nt3) 
114 NEXT N 
115 FOR Ne! TO 20 
116 PLOT Xoc(21-N) Comassavgl 22tN) 
117 NEXT N 
119 END 
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B7.12 Program CORRECT A 


10 IPROGRAM CORRECT A 

11 OPTION BASE 1 

22 DIM Seldata(!,1@6) 

3@ O1M Correctaray(!,1@6) 

35 MAT Correctaray= (@) 

42 MAT Scldata= (@) 

82 MASS STORAGE IS "“/CLASSICK/REODDATA” 
9@ INPUT "ENTER THE NAME OF THE FILE TO BE CORRECTEO” ,Scifiles 
1@@ INPUT "ENTER THE NAME OF THE CORRECTEO FILE" ,Correctftle$ 
11@ CREATE BOAT Correct files ,S@0,848 
120 ASSIGN @Path!i TO Sciftle$s 

13@ ASSIGN O@Path2 TO Correctfila$ 
140 FOR Nf TO 49 

15@ ENTER @Pathi NiScIdata(® ) 

151 ON ENO @Path! GOTO Adddata 

153 Adddata: IF N=49 THEN 

154 Scidata(!,1)=2.0Q@0E-2 

1SS Scldata(!,2)=1.494E+1) 

156 Scidata(! ,3)=1.2S56E+! 

157 Scidata(! .4)=-6.520E+@ 

158 Scidata(! ,S)=7.7@GE+@ 

1593 ScIdata(! ,6 )=-8.16@E-! 

160 Scldata(!,7)=-8.28QE-! 

161 Scidata(!,8)=-3.26@E-! 

162 Scidata(! ,9)=-1.270E+@ 

163 ScIdata(!,1@)=1.07SE+) 

164 Scldata(! ,11)=-7.200E+@ 

165 Scldata(!,12)=1.@Q@@E-2 

166 Scldata(! ,13)=-2.000E-3 

167 Scldata(!,14)=-6.@@@E-3 

168 Scidata(!,16)=1.770E+@ 

169 Scidata(! ,15)=3.0 

172 Scidata(!,17)=4.S61E+2 

171 Scldata( 1,18 )=405.20 

172 ENO IF 

Je) MAT Correctaray® Scldata 

174 OUTPUT @Path2 ,NiCorrectaray(*) 
75 NEXT N 

[32 ASSIGN @Path2 TO Correctfile$ 
194 FOR N=! TO 49 

195 ENTER @Path2 NiCorrectaray(#) 
197 PRINT “seeevsveneneg” 

1998 PRINT “SCAN” |N 

208 PRINT Correctaray(*®) 

22} PRINT “seseeeeaeanaa” 

223 NEXT N 

218 ENO 
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B7.13 PrRrogmam CORRECT 


Ht 
1! 
Aly 
38 
is 
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20 
120 
Hag 
toa 
ISI 
HX 
IGA 
Wat 
192 
pry 
195 
197 
paq 
700 
201 
TAN 


ctX 


FPROURAH CORRECT 8 

MP TION FASE | 

WE Scldateft OG) 

DIN Corrector ay l , 106) 

HAL Correctarey= (@) 

Het Scldata: (@) 

HASS SIOCRAGE 15 “/CLASSICK/REDGAT NN" 
LPrUT TEMPER THE MANE OF THE FALE '0 BE CORRECTED” Sclfites 
JERUP CETIGR THE WAME GF THE COPRECTED FILE? Correct i tiet 
CFEATE COAL Correct file® 608,849 
ASSIGN Obatht 10 Sclftles 

ASSIGN @Fathe 1) Correct filet 

FOR Wet TO 48 

EMTER @Fattyt WrS-Pdatate) 

IPF ON-AS THEM Setdatedl  t§)=1,95 

HA? Correctarayr Scidala 

OUTPUT PP ath? Nelorrectarayle ) 

HEME 

ASSIGN FPhath2 10 Correct tiled 

FOR Hef PO 48 

EWIER @Palho NiCorrectaray (el 

FRET “seeereacvesnen® 

FR “Scape 

PE QI Correctaray(s) 

PPP Teveesenacesue” 

We yt WN 

ELD “ 
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Bb?) 4 rogram CORRECT C 
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IP RAGRATE CORRECH C 
Orttum BASE t 

yet Scideta€ tl, 106) 

DIN Correctaravdld ,1¢6) 
HIN Chreectdatal 37) 
HAT Coteectarey7 (0) 
NAT Scldata- (@) 


DATA -3.2,-3.1,-3.0,-2.9,-2.8,-2.7 
Bae iesee le (oe -.7 .~.5.-02,.1,.4,. 


NAIA 2.8.2.9 ,3.0:3.1 3.2 
READ Correctdatal() 


a 
7,1.0,1 


HASS SIOPACE IS “7ZELASEICK/REDUAIN" 
PHU CENTER THE MAIIE OF tHE FILE 10 HE CORRECTER’ Sci files 
MIFUT "ENTER THE PMAHE OF THE CORRECTEO FILE’ Contact files 


CREATE QOL Correct file? 500,848 
ASSIGN @heth? TO Sclfiles 
ASSIGN @alh2 TO Cornrnctliles 


FOR Hel tO 3A 


ENTER @ratht MiSeldatale) 
Scldatall 15)*Correctdata(N) 


MAT Rorrectarav> Saldala 


MOTPUT @Fath2 NiCorractaray(?) 


NEXT W 


AIZIGN PPath2 10 Correctliles 


FOR Wop TO 3A 


EWIER OF ath? WiCerrectlarayle ) 


PRINT “"seeeureneonae” 
PRINT "SCANT NM 

FRUME Correactarayf®) 
PRINT “eeereerveroas” 
fHEXT ON 

Bt) 


el I 


B7.15 Program PRBCOEF 


1@ 1 PROGRAM PRECOEF 

2@ 1 THIS PROGRAM STORES THE PROBE COEFFICIENTS IN A DATA FILE 

30 OPTION 8ASE 1 

4@ OIM C(6,6) 

50 OATA 1,2,.3.4,5,0,2,.3,4,5,6 .8,.3 45.6 ,7,0 4.5.6 .7.6.9°0°0 0 O70 Cee eo 


62 READ C(*) 

78 PRINT C(*#) 

8@ ISTORE THE DATA INTO A FILE 

92 MASS STORAGE IS °/CLASSICK/REDOATA” 

1@@ INPUT "ENTER THE NAME OF THE COEFFICIENT FILE” ,Reddata$ 
11@ CREATE 8DAT Readdata$,! ,40@ 

12@ ASSIGN @Path! TO Reddatas 

12@ OUTPUT @PathtisCce) 

142 IPRINT STOREO COEFFICIENT ARRAY 

158 ASSIGN @Path! TO Reddata8 

16@ ENTER @PathtisCle) 

161 FOR N=! T0 6 

162 FRINT USING "MO.30E ,4X"1C(N,1),CON,2),C(N,3),C(N,4) ,CON,S) CCN,G) 
163 NEXT N 

165 ENO 
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B7.16 Examples of Acguired and Reduced Data 


The Scanivalve DOre and scanner channel 
assignments for data acquired using program ACQUIRE are 
Shown in Table Bl. 

An example of the table of Survey data output 
by program ACQUIRE in engineering units (‘scaled’) is given 
in Table B2, and the corresponding reduced data output by 
program CALC iS given in Table B3 for an upstream probe 
Survey. Similar results for the downstream survey [survey 
(een 6©FTable)6©6TT])06Uare)6©cgilven)6€6ind)6Table©6©6B406—6hlGUand€) «6Table B5 
respectively. 

An example of scaled data cutput by program 
ACQUIRE for a surface pressure scan 1S given in Table Bé6. 
The corresponding table of pressure coefficients calculated 


by program CALC is given in Table B7. 


meee FLEXIBLE DisC INITIALIZATION AND FILE BACKUP 

Flexible discs are used to backup the files stored on 
the computer’s hard disc. The file structure used for the 
present work was designed to allow the contents of each 
Subdirectory to be stored separately from the other 
subdirectories. Backing up the file system therefore 
requires separate flexible discs for each subdirectory. 
Blank discs must be formatted first, using the following 
steps: 


fee lLype MSi "7" [Puts system in root directory if not 
already there. } 
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11 
12 
13 
14 
hes. 
16 
1 
18 
Nhe, 
20 
21 
22 
23 
24 
Pe, 
26 
ZT. 
28 
Zo 
30 
at 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 


TABLE Bl. 


SCANIVALVE PORT AND SCANNER CHANNEL 


ASSIGNMENTS 











5-Hole Probe SCANNER #2 SCANNER #2 
S.Ve. 8 2 ch ch 
P atmospheric -P_ atmospheric O} SV1l READ DATA] 40]SV1 ADVANCE(st 
P calibration P calibration es 2 411SV2 
P_plenun 2 42 
P wall static 20B blade(press) | 3 42 
P2 18B ~5|si‘é «C&L aS ESV RESET home) 
P B 6 | a ee 
P 0 as: i) I 
P5 15B 8 48 
Ptp Prandtl(totalp14B 9 49 
Psp vrande (stati) 2B ___|9 50 
BLANK 12B Bie 51 
: 11B 12 2¢ 
108 Fe) a EE |S 
9B 14 54 
(aE | 55 
7B 16 56 
6B 1 57 
5B 18 58 
4B 19 52 
38 20 60 
2B 21 61 
l 22 62 
2T(suction side) | 23}, {63 
YAW XDUCER 64 
OS) 
66 
67 
68 
69 
70 
71 
LT 32 a2 
12T a3 re) 
S98 34 74 
14T a5 73 
leo 36 76 
16T 37 mae 
17T 38 78 
18T 39 we 
19T en 
20T ae 
Sl (partial inst) 5 
S2 (suction side ee 
$3 — 
P2 (press side) — 
P3 


TRAILING EDGE 
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TABLE B2. 
SCAN FROBE 
FOSIT 

1 U.00 

Zz 10 

3 26 

4 30 

5 40 

6 50 

7 .60 

6 270 

5 66 
10 . 30 
11 1.00 
12 1.10 
is 1.20 
14 1.50 
15 1.40 
16 1.50 
lie 1.60 
18 1.708 
15 1.60 
ZO 1.90 
Z| 2.00 
Ze 2.10 
23 2.20 
z4 2.50 
25 2.40; 
z6 2.50 
Zi 2.60 
26 Z.70 
Za 2.60 
30 2.90 
3h 3.00 

SCAN 6 

1 -7.450E+0uU 
2 -7.S16E+G0 
5 -7.576E+00 
4 -7.SSbE+O0 
S -7.S66€+06 
Seo) odcet uu 
7 -7.594E +00 
8 -7.626E+00 
3 -7.630E+00 
10 -7.640E70G 
11 -7.670E+68 
IZ -7.656E+0¢0 
13 -7.68ZE+008 
14 -7.674E+00 
15 -7.714E+dd 
16 -7.766E+0d 
17 -7.7Z6E700 
15 -7.744E+8d 
15 -7.788E+6d 
ZO - 7.75 2E+30 
Zl -7.768E+t60 
ZZ. - 7. B15E+08 
Z> -7.64ZE+00 
24-7. S14E+ 00 
zS 6-7. SB0E+00 
Z6 0-7. S46E+00 
27 «4-7.976E+00 
28 1-7. 556E+00 
23 -7.596E+06 
30 -7.564E+00 
31 -7.39656E+00 


she eae OS OO SE & & & YO! WY) ©) OI ® O16) & AN) ADO) NK OD AD? 


1 =) 
@ « 


t t | 1 I t 1 I t 1 1 1 | t t 
=) =) 3) 31 3) 3) 8) 3) 3) 3) 4) 4) 8) 4) 4) 4) 4) 4) 
* s a s e e > ° . ° s e 


Fel ale tee) 


Sollee Mad 


~ 400E-02Z 


BOWE-02 


-400E-GZ 
~600E-82 
. 200E-8Z 
-400E-02 
.6G0E-32 
. 60UE-6Z 
.400E-02 
. 260E-62 
-6BUUE-02 
.600E-0Z 
 400E-62 


= a= 


ee OOM MOAN & 


~ + + 4 + + + 


ry rem ot ry mom soos 
~ + + 


+ 4 


-7.7716E+O6 
-7.776E+60 
-7.640E+00 
-7.642E+G6 
-7.3550E+00 
-7.95ZE+00 
-7.556E+00 
-7>S86E 700 
-7.590E+00 
-B8. GU6E+O0 
-7.576E +00 
-8.004E+60 


2 3 


| 
i 
1 
1 
1 
1 
|.48ZE+61 
1.4835E+61 
1.484E+61 
1.455ErOI 
1.487E+01 
1.486E+01 
| .450E+01 
1.451E+01 
1.4859E+O1 


1.431E+6)1 
1.494E+01 
1.455E+01 
1.4935E+oO1 
1.45ZErdl 
1.49ZE+G1 
1.455E+01 
1.439Ze+@1 
1.485e701 
1.450€ +61 
l 
1 
| 
j 


8 3 

-G6.616E+0S8 -6. 
-6.816&rd0 -6. 
-6.750c+G0 -6. 
-6.7G0E+00G -6&. 
-6.6Z0E+6G0 -6. 
~6.66ZE+GG -6. 


-6.S85E+06 -68. 
=6,o592Etue -6. 
-G6.584E+G0 -8. 
-G.670E+00 -6. 
-6.694E+00 -6. 
-6.764E+00 -6. 
-6.854Erde -6. 
=G.65zEtwo —-&. 
-6.895e700) -6. 
-6.370E+G0 -6. 
“6.920Er680 -6. 
-6.950E+G@ -8. 
-6.364E+G8 -@ 
“6.97GE+00 -6. 
-7.06ZEtUG -3. 
-7.040E+00 —-S. 
~6- srersoeo  -9. 
=O Ze tUOo) — 5. 
=G.,.990E +00). — 49), 


-6.836E+60 -9. 
-6.666c+00 -9. 
14] 


l 
l 
l 
| 
| 
| 
1 
I 
I 
I 
I 
I 
1 
I 
I 
1.432E+G) i. 
I 
I 
l 
I 
l 
I 
| 
I 
| 
I 
l 
| 
1 
I 
I 


435ZE +00 
SOGE+OG 
61ZE+08 
GBEGETU0 
TIME+ G0 
BiGE+ OS 
-OoOWE Tuy 
.66Z2E+0d 
BEZE+O0 


- fe a 


=~ mM 


BS4E760 
BIGE+08 
BO4SE+ OO 
B4Z2E+00 
B7TGE+OO 
SZ5E+00 
BZZE+00 
BBGE+00 
-B76E+OG 
378E+60 
O56E+00 


[40E+Gu 


IS6E+O0 
Z2UET U0 


256e +00 


— =— = == —— ee mmm mmm ee ED 


4 
~17TE+SI -6.O0IZEt+O0 
~16ZE+G1 -6§.05Ze+00 
.165e761 -6.145E+00 
-167E +81 -6. 104E +00 
~166E+GI -6.154E+00 
-155E+01 -G.1IZE+06 
~LSTErOl -6.134F+00 
.2U0E+Ol -6.156E+60 
.cosetel -6.166e+00 
-201E+O1 -6.Z16Er00 
-2OSErGI -6.160E+00 
.2OSEt+O! -6.Z466+60 
-LIZE+GI -6.26ZE +00 
~cISErOI -6.2654F+00 
~2ISE+OI -6.5354E+00 
ZZ5E+OI -6.Z66E+00 
~2cactdl -6.S55E+60 
.coverel -6.Zd8de+00 
~LZoottel -6.356E+00 
-2o2E+Ol =6.3585E+00 
-2oSerel -6.374F+00 
~2ATEtGl -6.490E+60 
~24SE G1 -6 .4Z20E+00 
~262E+0 1 -6.516&+00 
.coocreul -§.S74E+dO 
.cTOEtGI -6.566€+00 
~2t6ETOI -6.562F+00 
.cToEtEl ~6.586c700 
.2T6ErOl -6 .6Z0c+00 
.2TEtOl ~6§.6526760 
27 sttol -6.650E+00 


OI4Erol 
JOZIEtal 
~O25e7rO1 
O2setrol 
~O25c+01 
.O25ErGI 
~05zZe10l 
-GS6E701 
~GD5E+01 
OSdEtSI 
-O4ZErol 
G44E rol 
~O45E761 
~O45E 70 
~O535E+01 
.US5Etol 
~OSTE+O1 
.GOvEtSI 
~W6ZErOl 
-O61E+6I 
.G65E+6) 
»O75E+G1 
.O75E+01 
~OSZETOl 
OSZE+O1 
-O56ce70i 
O96erd1 
~OS3E+OI 
~1635crol 
~OS5E+O1 
~1O7E+O1 


WU Oe tt 
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e es e > es 


UPSTREAM BLADE-TO-BLADE SCALED PROBE 
DATA FILE L-4SEPASCL 


.O1GErOl 
~OI4E+01 
.015er01 
.O17ErS1 
-WISE+OI 
JOZIErOl 
~OZ27ErG1 
-OZ5E+0I 
-OZ25E+61 
~OZ5Etol 
OZ4E+O1 
-O26E+01 


a_i eee 
» 


uu) & 


1 

1 

— A) 
1 

+ 

€ 


+O] 


My Fer ret rm softy softy 
+ 44 + + + 
© © © © ©) 
@) © © 6 & € 


~324E 1 OU 
-IT4E +00 
-008E TOU 
OSVEtON 
O4ZE+00 
.OS6E +00 
- 1OZeE+o0 
.O76E 700 
. 140E +80 
~17ZEtOO 


TABLE B2 (CONT.). UPSTREAM BLADE-TO-BLADE SCALED 
PROBE DATA FILE L-4SEPASCL 


SCAN 12 J 14 TAW TEMP ATHOS 
DES (&) FRESS 
1 -6.800E-05 -1.666E-@1 -2.460E-G1 4.892E+O1 4.667&€102 405.47 
2 @.WU0E+OU -1.660E-01 -2.6Z20E-61 4.870E+0I 4.665E+62 405.47 
5 ©6.000Et00 -1.6566E-01 -2.620E-01 4.B67Et+OI 4.60cE+0z2 405.47 
4 Z.0W0E-G@35 -I.600E-81 -Z2.6Z0e-01 4.665F+61 4.606e+02 405.47 
S 6.000F-05 -1.840E-01 -2.566E-G) 4.650E+61 4.550E+02 405.47 
6 -4.000E-85 -I.660E-01 -2.600E-31 4.667e+01 4.557Etuc 465.47 
@ -68.6G0E-05 -I56GE-01 S-Z2 °S60E-01 4.660&+61 4. 5590E+02 4035-47 
8 l.GW6E-02 —I.760E-01 -22eGue-01 4.d006E +01 4.554F+02 405.47 
3 1.600E-82 -I1.S500E-01 -2.5Z0E-UI 4.507E+0I 4.S95€+0z 405.47 
16 -1.4G0E-02Z -1.B40E-01 -2.620F-01 4.856E+6) 4.596€+02 465.47 
11 2.00UE-03 -1.660E-01 -2.520E-61 4.666E+601 4.595c+02 465.47 
12 «=2.600E-035 <=1./60E-dl 2 o2enzoe—v 4.865c+01 4.554€ 102 405.47 
13 -1.600E-02 -2.0Z20E-81 -2.64uE-01 4.Bd57E+0I 4.5595ce+602 465.47 
14 -1.80GE-6Z -1.750E-61 -2.550E-901 4.667E+01 4.555E+02 405.47 
15 4.000E-05 -I.500E-GI -Z.4Z0E-1 4.665e701 4.555E102 405.47 
16 2.W0UE-03 -1.S560E-0) =2.67¥E-01 4.605e+ol 4.552t102 405.47 
17 G.600E-05 -1.660E-01 -Z.b60E-0! 4.B67E+01 4.555E+62 405.47 
16 1.200E-02 =I. B20E-01 =2.66wE-0! 4.664e+61 4.553e+62 405.47 
is 4.G08E-05 -1.780E-61 -2.58veE-l 4.6o5Er01 4.550t162 405.47 
ZO 0G. WUUELUG -1.780E-01 -2Z.660E-v! 4.650E+01 4.554e+02 405.47 
ra) 4.000E-05 -1.840E-61 ~-2.740E-! 4.Bo5Etol 4.554€r0Z2 405.47 
Z2 1.60we-O2 =I. 700E-81 <2 5SueE-u! 4.050E+01 4.955€+02Z 405.47 
ra) 4. 00UE-05  =15520E-01 -2.76¢e-01 4.864E+01 4.556&+702 405.47 
24 2.UVUE-U5 =-I.6Z20E-O1. —¢.54veE-0l 4.675E+01 4.0uleroz 405.47 
25. 46.999 -16 =i 27 2ve-wl 5-2-6720 -ul 4.660Ervl 4.6035t70Z 405.47 
26 1.460E-02 -1.826E-01 -2.48GE-Ol 4.805E+d! 4.605e+62 405.47 
27) = B WOOE-O5 «-1.740E-81 0 =-2.400c-01 4.605E +01 4.605e+62 465.47 
Zé 2.000E-U5 -1.6650E-O1 -2.S500E-01 4.686 7E+6) 4.66zZe+0z2 405.47 
2500 O.UUBE+OOG 8-1. 740e-01 -2.500E-01 4.665E+01 4.6004E102 405.47 
58 Z2.000E-65 -|.3560E-0l =Z2.70UE-01 4.604E+61 4.607E+62 405.47 
51 -2.0@0E-t5 | so0r-vle =2, Save e) 4.675E+61 4.606F+02 465.47 
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UPSTREAM BLADE-TO-BLADE REDUCED PROBE 
DATA FILE L-4SEPACALC 


PH] 


TABLES. - 
SCAN PRE 
POSIT 
1 2.20 
2 18 
3 20 
4 32 
5 40 
6 52 
7 -5Or 
8 . 72 
9g 82 
12 .92 
11 1.80 
12 1.12 
13 1.20 
14 1.32 
1S 1.42 
16 1.58 
ez. 1.62 
18 1.70 
19 1.8@ 
22 1.9 
21 2.00 
22 Dow 
Z3 2.20 
24 2.30 
25 2.48 
26 2.52 
27 2.60 
28 2.72 
Py 2.92 
3@ 2.92 
31 3.00 
SCAN Vel 
1 2.5686 +02 
2 2.570E+@2 
3 2.576E+@2 
A 2.570E 402 
S 2.566E+02 
6 229756402 
7 2.576E +02 
8 2.5766 482 
| 2.575E +02 
12 2.579E 402 
1 22575E*O2 
12 2.S581E+@2 
13 2.S581E+02 
14 2.5936 +82 
1S 2.589F +2 
16 2.598E+@2 
17 2.597E+02 
19 2.606E+02 
19 2.6Q9E +2 
20 2.60SE+2@2 
Pe 2.611E402 
22 2.617E4+02 
23 2.6166 +02 
24 2.629E+02 
25 2.630E +02 
26 2.629E +02 
2 2 .630E +22 
28 2.628E +02 
Za 2-626E+02 
32 2.623E+02 
oe 2.629E+@2 


BETA 


ea apPhheerhreae ehhh h nm mB mm Mm mh & HM wD mM ww Mm wD Mm & 


»-24QE-O2 
s292E-02 
pete -O2 
nebse-~O72 
s2O0E—ee 
»283E-O2 
sede =e 
- 3@6E-02 
- 3Q03E-02 
Sol ce =O? 
- 3Q04E-82 
- 32QE-O2 
J 1bE=82 
-o1GE=O2 
FOOSE -O7 


S5S8E-92 


So 5SE—02 
250 5E-02 
Poo ge = OZ 
H75E-O2 
-394E-O2 
HSI lE-O2 
eA 2E-O2 
- 450E-02 
mo SE -O2 
PAS TE-O2 
-466E-02 
-462E-2 
»461E-82 
EASlE-O2 
»467E-02 


GAMMA 


Qelvce-we 
goede Ue 
1.028E-O1 
1.076E-O1 
1.163E-01 
i tS3E= Ot 
Le2tze-OT 
1.2 76E-OF 
lez 7Se un 
2 7OE—8n 
Po. SOVE=O1 
2426-01 
22be-01 
laze - On 
Pesce =el 
P,OG7E-ON 
i. O7 7E=01 
1 O83E-91 
1 O17E-@1 
1,04SE-01 
1.060E-O1 
1.031E-01 
1.Q094E-O1 
i O93E-O) 
Ie SSE- OI 
eb7GE-O1 
1.242E-O1 
e2oOE-O1 
Pe OUSE =O! 
1.348E-@1 
1.318E-@1 


Vref 


Le ee eS ee ee ee ee ee ee a ee ee ee ee a ee ae Be | 


.123E+02 
neve? Oe 
1 32E402 
. 138E 422 
. 1286 +82 
.136E +02 
.138E+02 
. 140E+@2 
.143E +02 
.142E +82 
. 143E 402 
. 1486482 
.150E +82 
~153E+02 
.157E +02 
.162E +02 
.162E +02 
. 1666 +82 
. 168E+02 
. 168E+02 
.171E +82 
-1B1E 402 
.184E 482 
. 196E +82 
. 199E +82 
.205E +82 
.208E +02 
.207E +82 


-210E4+82 
-209E+82 
~211E402 


Q 


— wh awh ob oem sub oem web oom cum cum osu oem oo ou osu ocumb oem ooqumb Sebo auth Eb =u sub oo =p sub au “= «nat 


—— 


-682E+O1 
-686E+O1 
.69S5E+O1 
-697E+O1 
.684E4+01 
-692E+O1 
-697E+O1 
~697E+O1 
.696E+O1 
. 700E +01 
.695E +01 
. 7046401 
. 703E +01 
. 70S5E +01 
.7TISE+O1 
erates 
.725E +01 
-737E+O1 
-742E +01 
.735E+O1 
.743E +01 
~751E +01 
. 749E +01 
. 765E+O1 
» 765E+O1 
.764E4O1 
7 boe + Ol 
. 763E +01 


- 760E +01 
- 754E+O1 
»762E +01 
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cal a 


i 


=A: 


SS@E-05 
445E-03 
483E~-03 


-O12E-O2 
-492E-02 
-433E-82 
« (99E-O2 
- 1186-92 
-11TE=82 
.Q@81E-O@2 
,ebOE-Uz2 
Pr Pat | So's 
-836E-@2 
~646E-02 
» 34SE-82 
-OS6E-@2 
-Q8Q03E-02 
-O29E-@2 
T6OSE= Uo 
»234E-O3 
.O34E-83 
“SS SE=eo 
-Q87E-O2 
PUrte—Ue 
(2g 7E-Oe 
~SA6E-O2 
s305E-07 
-949E-02 
-£63E-02 
-S07E-Uz 
po obe sud 


Qref 


= == awh awh emp emi «amb «wb =e amb ER au eum osu occu oquib osu osu osu oeuib oo «aumib «aumib ou —-— = —_—e «te 


— —— «ma 


- 16S5E+@1 
1 70E+O1 
oI 7T7EtOH 
wt TSE FGI 
~174E+O1 
. 183E+O1 
- 18SE +O! 
. 187E +01 
.190E+O1 
- 189E +01 
~1S1E?01 
~197E401 
~ISIE+91 
-202E+01 
-207E +01 
eZ lZe+Ol 
palee+O! 
sclver Ol 
2220E 701 
~219E+O1 
~222E+01 
-234E +01 
~236E 401 
.248E+01 
s2oce tO 
=code+O! 
-262E+O1 
.262E +01 


.264E 401 
.263E +01 
-265E +@I 


1 
1 
1 


1 


1 
I 
1 
| 
! 
1 
1 
1 
1 
| 
1 
| 
| 
| 
1 
1 
1 
1 
| 
! 
1 
| 
1 
| 
1 
! 
1 


Xvel 


»O92E-O1 
-0d2E-0) 
.O96E-O1 
-O93E-O1 
.Q92E-O1 
.O9SE-O1 
-Q@96E-O1 
-O97E-O1 
-Q96E-O1 
2097E =O) 
-O96E-O1 
.O99E-O1 
"099E-0) 
3 Vibe pe} a) 
~ 102E-O1 
. 1Q6E-O1 
 1O0SE-@1 
71 OSE-01 
IES Ot 
-1OSE-O1 
SU el Seah 
-114E-O1 
SPrSE-O1 
Sree =O 
eV TSE-O1 
~ 118E-@1 
Soe =O 
ee OI 
slide =O 
~HHSE-Ol 
le = Oil 


MACH 


Pe ee eS ee ee ee ee ee ee Oe ee a ee Me Oe ee eS | 


RJ RO BS 


.4SSE-O1 
.459E-O1 
.465E-21 
.459E-01 
.457E-01 
.463E-01 
.467E-O1 
,467E-O1 
.466E-01 
4696-01 
.465E-01 
.A72E-O1 
-ATIE-O} 
.473E-O1 
.480E-O1 
.498E-O1 
.497E-O1 
.496E-O1 
.SQQE-O1 
.495E-01 
.SQQE-O1 
.SQ6E-O1 
.SOSE-O1 
.SIGE-O1 
.SI7E-O1 
.SIGE-O} 
.SI7E-O1 
.SISE-O1 


volse =O 
-S@8E-Ol 
,S14E-O1 


Xref 


oOuouvdndDOoOoWND NO DMO NOW WN WMOWNWMNOWDwWoWOWDWMNwWwWwWoWwWwww 


s025E-02 
.044E-2@2 
.@68E-O2 
G6 1E-O2 
-Q@S7E-@2 
-O91E~O2 
. @98E-@2 
. 1O8E-2@2 
/113E-02 
~ 113E-02 
SZ VE-O2 
. 145E-82 
nS SeE-O2 
. 164E-@2 
5 ed es lr4 
rawoe-O2 
BZ USE-O2 
yolae Uz 
seove-O2 
pee Je - 02 
-24QE-02 
~2G5E-O2 
Peole -O2 
Pouce -O2 
Poca U2 
rote -O2 
pOoee=07 
-JOdE=-02 
eSo7E U2 
scale -O2 
- 400E-@82 


YAW 
DEG 


be 


= mm & fa Pri rhaAanrahthphpnahrrnhanraenrhnanrnrnpa ff & ® mB & mm 


.892E401 
-870E+O) 


»BE7E+O1 


sGhSE+O1 
-866E+O1 
.BE7E+O) 
.866E+O1 
.866E+O1 


~BE7E+O1 


.B66E+@1 


.BE6E+O! 
~B6SE+OI 
.867E+O1 
~867E+O1 
.865E+O1 
~86SE+O1 
-867E+O01 
.864E+01 
. 866E +01 
~86SE+O1 
.B6S5E +O! 
.866E +01 
~864E+O1 
~87S5E+O1 
.866E+O1 
.865E +01 
~B86S5E +01 
~867E+O1 


8636 +01 
-864E+O1 
.879E+O1 


TABLE B3 (CONT.). UPSTREAM BLADE-TO-BLADE REDUCED 
PROBE DATA FILE L-4SEPACALC 


SCAN Pref-Pt/Qref 


| 1.432E-@1 
2 1.436E-@1 
B) 1.445E-81 
4 1.449E-@1 
5 1.4S9E-@1 
6 1.473E-@1 
i 1 A#3S5E-@1 
8 1.447E-@1 
3 12 431E-O1 
1@ 1a4SSE -01 
11 I S02E-0l 
12 1.SI4E-O) 
13 [a9 De =e! 
14 hoe VE=01 
is i SSre-O 1 
16 PeS61E-Ol 
17 1. 549E-01 
18 | 439E-01 
3 aoe FE=O 1 
is 1.S44E-@| 
21 ieocce-O) 
22 1s S7SE-01 
Zo 1.6@4E-@1 
24 1.626E-@1 
2s 1. 655E-01 
e 1.698E-@1 
27 1. 712ZE-01l 
28 ie StE-@i 
29 '.762E-@1 
3@ Varoce-e 
a4 e/a 2e-O1 


e@teeeeseaessesetetesesesesesesessesseseseseseseseeeeaeseseseeaseeseseesearsaseseseeseasaesaaeseseaassaeaesesseaesaesseaeseseet 
ENSEMBLE AVERAGES 


PPAVG PAAVG TEMPAVG XREFAVG VREFAVG QREFAVG 
sez te tel 405 .47E+00@ as3.78 o22Ue U2 Ze /6SE+Oz 1.214E+0) 


144 


TABLE B4. 


SCAN 


Se vo DO In mw» WN — 


— 
= 


“OW &@ UW A 


PRO8E 
POSIT 


NeGNnN Ge WuWwG a me mane eee ne aU eo mm eT em me me Om mm Oe 


DOWNSTREAM BLADE-TO-BLADE SCALED 
PROBE DATA FILE U-SEPASCL 


~200E-O2 
-6@@E-82 
. 8G8E-82 
-O@GE-82 
. 8Q0E-82 
. 2Q0E-282 
. 400E-82 
-6@@E-82 
.880E-82 
-400E-82 
.6Q00E-82 
. 480E-82 
. OBE -82 
.G8GE-82 
. 400E-82 
. 200E-82 
.8G0E-82 
.208E-82 
-@2GE-82 
 400E-82 
-400E-82 
-8Q00E-82 
-8QGE-82 
-6Q0E-82 
. 208E-82 
-62GE-82 
-6Q0E-@2 
- 28QE-@2 
- GQ8E-82 
-O@8E-82 
- 200E-82 
.620E-82 
.GGGE-82 
.6@0E-@82 
-4Q0E-82 
.620E-O2 
.QQQ0E-82 
- GBOE-82 
- 400E-82 
-68GE-@2 
-B8QGE-82 
.@0GE-82 
-8@0E-82 
. 8@0E-82 
-8@0E-82 
-BO@E-@2 
BOGE -82 
. BQGE-82 


1 
1 
1 
| 
1 
1 
1 
1 
1 
t 
1 
1 
t 
1 
1 
| 
| 
| 
1 
1 
| 
1 
1 
| 
1 
| 
1 
| 
t 
t 
1 
1 
1 
t 
t 
1 
t 
t 
1 
! 
1 
| 
1 
1 


.498E+01 
-S@1E+O1 
A99E+81 
.SOIE+B1 
.498E+01 
.499E+01 
-AI7TE+O1 
.500E +81 
.SOIE+O1 
.522E+ OI 
»S@GE +21 
.498E +01 
.SO1E+O) 
.499E +21 
.SOZ2E+O1 
.SOGE+O1 
.5@8E +81 
.SOSE+O) 
.S@7E+81 
.S@SE+81 
.SQ4E+B1 
.SO3E +81 
.503E+81 
.499E +01 
.SOCE+O1 
.498E +01 
~S@IE+O1 
. 4956 +01 
.497E+01 
~497E+61 
.498E+01 
~497E+01 
- 499E+01 
.SOGE+O1 
4976401 
.49SE+01 
.497E+01 
.496E+01 
.496E+01 
.496E +81 
.49S5E+81 
.497E +981 
~ 4946401 
.49S5E +21 
.496E+Ot 
.496E+01 
»493E+01 
»49SE+O1 
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1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
t 
| 
1 
1 
1 
1 
t 
1 
1 
| 
] 
1. 
1 
1 
| 
| 
| 
1 
1 
t 
| 
t 
1 
1 
t 
t 
t 
1 
1 
t 
1 
| 
1 
| 
1 


.@88E+01 
-OB1E+81 
.O74E+01 
-O74E+O1 
.072E+81 
-O@72E481 
-O71E+81 
-O78E+81 
. G68E +01 
. 6 9E +81 
.@72E +81 
-O73E +81 
-18SE4+0) 
~128E+01 
- 1386+ 
. 1S6E +91 
. 163E+01 
~17@E +81 
~174E+O1 
- 188E+91 


~I87E+O1 


- 19GE+O1 
~1ISIE+OI 
. 186E+81 
192E+Ot 


PIOUE+O 
OVS7E*O! 
-201E+8} 
.199E+¢1 
~c@7E+Ot 
.2@6E +81 
.2@7E4+01 
peléce ten 
.21SE +01 
_2l6E4¢1 
celle? Ol 
.226E4+81 
~2c6E 481 
.ccuetol 
-238E4+01 
.238E +01 
.238E +01 
.239E +01 
.240E 40) 
.246E+Ot 
.246E+61 
-248E+81 
. 2546481 


-584E+88 
-626E +080 
.614E4+88 
.682E+82@ 
.S76E+08 
.S68E +20 
-550E+20 
-5S76E+88 
-548E+808 
-498E +80 
.574E4+88 
.S8B8E +02 
. 784E +88 
-824E +22 
.926E +88 
. 2066488 
~9I72E+08 
.064E+88 
. 108E+80 
.116E +02 
. 118E488 
. 18CE+02 
.176E +88 
. 1S6E +80 
.154E +8 
. (7ZE 408 
. 228E +82 
.2380E +08 
. 2080E +88 
.264E +88 
.238E +88 
. 334E +88 
- 320E4+88 
.376E +88 
- 338E +08 
. 366E +80 
.368E +80 
. 348E +80 
. 386E+08 
.442E +20 
. 4S58E +02 
.432E +08 
. 456E +00 
.S12E +20 
.48@E +08 
-SQ@BE+O2 
-SO6E+8@ 
-S28E +20 


wn 


SUDO WMO WMO WNW —- —~ HD —~ ND WN -—“ KH HV H UH HUN WU DA BMIYUMMHMHNKNH es ew eo mr mr eMNnNnunNnnmN 


.946E+280 
.648E+88 
.964E+82@ 
-5804E4+808 
.858E+88 
. 788E+80 
-738E +88 
. 728E +88 
. 720E +08 
.836E +08 
. 968E+08 
. 1606 +88 
-512E +00 
.878E+28 
.276E +08 
-660E +82 
.G@66E +88 
. 492E+08 
.822E +80 
.218&E+88 
-5S50E +80 
.828E+808 
. 130E4+0@ 
.238E +22 
.468E +20 
.624E +80 
. 7 488E +88 
- 79GE +88 
.830E +22 
-8S2E+08 
.836E+08 
.9SBE+28 
-9280E +88 
.@09E+81 
.9IBE +80 
. 988E+02 
-OG4E+OI 
.976E+88 
.OCS5SE48) 
-O24E+O1 
.982E +80 
.952E +00 
.812E +00 
.S68E +82 
. 304E +88 
.848E+88 
-S28E +20 
.9S8E+88 


6 


-6.88@E-2!1 
-6.700E-O1 
-6.440E-O1 
~6.280E-01 
-6.@80E-O1 
-S.940E-O1 
-6.@20E-@1 
~6.Q@00E-O1 
-6.340E-@1 
-6.300E-@1 
-6.300E-@! 
-6.880E-Ot 
~7,.2Q0E-@1 
=7, 1 B0E-@| 
-8.020E-@1 
-8.920E-@1 
-8.220E-O1 
-8.680E-@1 
=B. 7296-01 
te TAS 6) Sa) 
=3'. O20E-O1 
-8.820E-01 
-8.880E-O1 
=p. JOVE-O1 
-8.640E-01 
-~8.S40E-81 
~8.480E-O1 
-8.S@GE-O1 
-8.100E-O1 
-8.240E-01 
-8.140E-O1 
=8. 220E-81 
-8. 10GE-21 
-8.180E-@1 
-8.180E-81 
-8.200E-O1 
-8. 18GE-@I 
=9. 16CE-01 
= leOE-8) 
=7, SBCE-O1 
=8.50cE-0) 
-8.280E-@! 
-9.36CE-O1 
-8.3Q0E-O1 
-8.120E-@1 
=§,900E-01 
-8.600E-O! 
-8. 160E-01 


so2 0b" 
.B840E-81 
.68QE-O81 
seOVeE=01 
.Q8GE-81 
. 940E-Ot 
.120E-01 
.120E-@1 
. 40@E-81 
TO20E=81 
.B6@E-O1 
. 740E-O81 
. 300E-Ot 
.SBGE-O1 
. 96BGE-O1 
. 260E-@t 
» SOQE-81 
. 760E-@1 
. S@QE-O1 
.882E-8) 
.840E-O1 
.BEGE-O1 
. 96CE-O81 
.820E-81 
. 74QE-81 
.680E~O1 
-420E-O1 
.S60E-8) 
. 3OGE-81 
- 400E-81 
. 460E-81 
. 160E-81 
.O40E-81 
. 120E-@1 
. 420E-O1 
. 480E-01 
.420E-81 
. 168E-81 
soc eE-0l 
.18GE-21 
.220E-O1 
. 340E-O1 
-BO@E-O1 
. 360E-OI 
. 160E-O1 
. 740E-O1 
. 2BGE-@1 
. 280E-81 


TABLE B4 (CONT.). 


SCAN 

t -3.5@@E-@} 
2 73.1006 -6f 
3 -3.04CE-6I 
4 6-3. 4@0E-6! 
5 ~-3.240€-01 
@ -3.140E-@1 
7 -3.060E-@1 
@ ~3.360E-@! 
@ ~3.520E-61 
te -3.S5e0eE-@! 
tt «673. 040E-01 
12 ~3.@20€-@1 
13 ~4.040E-@! 
14 06074. 260E-61 
1§ «4674. 360E-@1 
te -4.480E-6f 
17. ~4.260CE-6@1 
1e ~4.320E-@! 
19 4-4. 4B@E-ef 
26 -4. 4606-01 
zt -4.360E-@1 
22 -4.100€-@f 
23 -3.9¢0@E-@! 
240-33. SZEE-Ot 
25 -3.700E-@! 
2@ -3.580E-@! 
27. «2-3. 48CE-61 
20 -3 340E-@! 
29° «-3.30RE-@) 
3e -5.950E-e! 
37 -2.040E-@f 
32. -3.74GE-@f 
33 -2.940CE-@f 
3q0 CO 1. 840E- OF 
35 ~!.68t€-@! 
36 -1!.@6E-@1 
37 -3.S6GE-61 
38-4. 160E ©! 
39 -2.7@@E-@f 
ae 4-3. 468E-@1 
ai -2.54¢@E- 6! 
42. -$.208€-@2 
43 -1.220€-61 
4a 6-S. 30GE 6! 
q5 ~2.6c(085.€1 
46 -3.340E-@1 
47 -3.240E-@1 
46 -3,.300E-@1 


S 


-1.@26E $00 
~9.660E-@! 
~-0.700E-@! 
-0.246E-61 
-@.020€- 01 
-@. S@0E-@1 
~0.020E-@1 
~@.5e0E-61 
-@.100E-@1 
-0.540€-@1 
-@.420€-@1 
~@.020E -¢@! 
~1.036E966@ 
~1.0746960@ 
~1.100E '@@ 
~1.178€°08 
-?t. t10€ +e@ 
-1. 162E90@ 
~1.2@2E+80 
-1.164€°0@ 
-1.320€ +00 
-1.214€ 08 
-1.226€ +06 
-1. 0746908 
-1.178E 08 
-1.108E 0 
-?.feaeree 
-1.218&16e 
-1.202E+6@ 
-t.378E +068 
-1.S552E 166 
~1.386E +62 
~1.210€9¢@ 
-1.544€ 980 
-1.S566E ee 
~-1.S@4E +00 
-1.378€ ee 
-1.4@6E 108 
-1.2627E +0@ 
-1.396E9@6 
-1.248€ 908 
~1.602E 160 
-1.642€ +06 
~1.472E 968 
-1.396E ee 
-1.402E +08 
-1.294E9¢@ 
-1.270€ 900 


10 


@.332E'¢0@ 
@.31CE1 ee 
@.202E 900 
@.278E 9080 
@.238€ 908 
@.210€°e@ 
@.2306°90@ 
9.236€160 
@.207E +08 
@.100E'¢e 
9.2406°¢80 
0.2546 108 
9.5546°0@ 
@.002E +00 
@.702E 500 
9.SS2E°00@ 
@.e@cE +00 
1.@67E Ot 
1.@13E+@! 
§.@Iseret 
1.@2Z2E°@1 
1.@26€ 501 
1.@27E9@! 
1.@22E +61 
1.027671 
1.@31E°@1 
1.@35E°@! 
1.034€°9@1 
1.@37€°@1 
1.@35E +e! 
1.036E 161 
1.@¢@€9@! 
1.@43€90! 
1.@¢46+@) 
1.@4@E +e! 
1.047E9@) 
1.e@S7E@! 
1.@S3E°@! 
1.@5¢E+@61 
1.@6CE*@1 
1.@62E +61 
1.@64E +01 
1.@66E+@! 
1.@68E161 
1.@65€°@! 
1.@75€ 9@1 
1.0716 9e1 
1.@70E 901 


-0.20CE C8 
-@.170E°906 
-@. 166E +00 
~@.170E +68 
-0.164E +08 
-@.154E 968 
~0.170€ '¢e@ 
-0.1246908 
-0.1366'0@ 
-@.10@6E +68 
-0. 1106900 
-@.168€+ee 
-9.31¢€100 
-0. 4426900 
-0.6266708 
-@.GCCE 0 
-0.01cCE 66 
-@. 7946908 
-0.722E 1086 
-0.664E 68 
-@.@62E +0 
-@.732E 1680 
-@.704E°@8@ 
-0.772Ee@e 
~@.6278E€ 968 
-@.@68E +60 
-@.@26E 900 
-6. e386 906 
-@.954E +68 
-@.0952E 700 
-@.018E°@6 
-@. 07661080 
-7.012€+ee@ 
~6.042E 108 
-@. OSCE ee 
-7.045£€ 106 
~7. 0046168 
~7.0S2E +68 
-7.@68E 986 
-7.@68E0@ 
-7.@08E +0 
-7. 1e08E+e@ 
-7.127E+6@ 
-7.15@E9@@ 
-7.1e6E ee 
~7.2@8E 108 
-7.1646°@@ 
-7,.190E100 


12 


@.cece ee 
-1.206E- 62 
-1.000E-@2 

4. G06E -@3 
-1.800E-@2 
~1.200@E-62 
-1.208E- 62 

0.eecc ee 
~1.200E-02 
-1.@@0E -@2 
~1.@00E-@2 
~1).@0GE- 02 
-0.0e0E-@3 
~1.200E-62 
~0. 866E- 03 
~ 4. CGGE - 03 
~1. 4@0E-82 
-0.006E - 03 
~2.6@CE - 02 
~1.488E -@2 

@.@20E -03 

2. G0CE- 03 
~2.208E - 82 
~2. d0@E - 62 
~1.0@eE-@2 
-1.@@eE-02 
-4.0@CE- 63 
~@.@08E -03 
-0.000E-03 
~2.202E - 62 
-2. 40GE -62 

4. @G0E-@3 

2. 008E-@3 

1.@@E -@2 
-1.@@2E-@2 
-1. @@GE -@2 

2.000E-63 

G.e@39E-10 
-1.608€-@2 

@.@ece- @3 

4. O2CE -63 
-@.@00E-@3 
~1.4@BE-@2 
~1.@G@E- 02 
-@.@00E€ @3 
- 4. @0CE-¢3 
~@. 00GE-@3 

1. @G0E-@2 
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13 


~@.008E-63 
1. @@GE-62 
-@.@00E -03 
@.@0CE-63 
2. GOCE -03 
~0.00CE-@3 
-1.@02E-@2 
@.@0CE-@3 
~2.O00E -@2 
~4. 008E -@3 
2. C0CE-@3 
~1. 400E-62 
-1.000E-@2 
-8.@0CE-@3 
~4.006E-03 
4.0ece-@3 
@.e6CE-@3 
~2.000E- 03 
-1.400E-@2 
~4.800E- 63 
4.008E-63 
4.000E-63 
-@.00CE- 03 
~1.6@0E-@2 
-2.@G0E-63 
-1.60@E-@2 
-6.@00E-63 
-1.20¢E&-@2 
-1.200E-@2 
~6.@08E -@3 
~1.200€-@2 
-4. GORE -63 
-2.008E-@3 
1.4@@E-@2 
-1. 4@0E-@2 
-3.200E-@82 
-1.408E-82 
~4.0G2E-63 
-1.2702€-@2 
-6 .@20€- @3 
-2 .Q08E-63 
~4.@22E @3 
-1.4@0RE -82 
~4@.000E 63 
~2.@20E-@3 
~6.@@2E-@3 
0. GGCE-@3 
-2, Q00E-03 


@. Cece ¢6e 
@.C@0E-63 
-1.@@8E-62 
1. 400E-@2 
-2.@00E-63 
-3. O20E-@2 
-1. @0CE-@2 
-1.@2CE -@2 
-2.70GE-@2 
@. Gece ee 
4.@@0E-@3 
-@.600E-63 
-1.400E-62 
-2.ORRE -63 
-0.@00E-@3 
-@.@00E-@3 
2.CO0E- 83 
-@.@00E-@3 
-1.208E-@2 
2. 088E-63 
-4.802E-@3 
-@.@6CE-@3 
-4.@00E-63 
-1.7@9E€ @2 
6.@C0E-@3 
-1. 200E-@2 
@. efCE+2e 
-1.200E-@2 
~@.@22E-03 
~@. @CCE-@3 
-1.208E -@2 
~1.6@0E -62 
@.ecce+ec 
@.eevesee 
-1.280E-@2 
-@. @0eE -@3 
-3.27C0E-@2 
2.@20E-@3 
-1 8@CE-@2 
-@.@@0E-@3 
-4. GOCE -@3 
~4. ORE -@3 
-1.600E-@2 
-2.080E-63 
-4.@@CE-@3 
-1.4@0E-@2 
~4.@2CE-@3 
-@.@0¢e&-@3 


YAW 
DES 
2.0€ 76906 
2.010E9¢@ 
2.007E 06 
1. 763E 988 
1.757E108 
2.8046 168 
2.26 4E 108 
2.258E $68 
2.S31€ 906 
2.624E +08 
2.788698 
2. 70CE 108 
3.0266 +66 
3.296160 
3.27S5E+66 
3.554E 768 
3.5S5¢€ +06 
3.548E 66 
3.SS5S6E9¢@ 
3.294E +80 
3.2@1E ee 
3.284E +8@ 
3.2966 '6e 
3.28SE +68 
3.256€°@8 
3.O23E€ +22 
3.0396 966 
3.0¢41F 188 
3.0246 102 
3.0366 +20 
3.0366 +66 
2.776E +08 
2.772E 988 
2. 782E +68 
2.778E 988 
2.7736 988 
2.7816 4788 
2. 707E +08 
2. 7716902 
2.7846 +06 
2.536E +82 
2.527E +28 
2.537E€ '88 
2.257E 10@ 
2.278E 188 
2.027E 708 
1.751€ ee 
1. 788E+ ee 


DOWNSTREAM BLADE-TO-BLADE SCALED 
PROBE DATA FILE U-4SEPASCL 


TEXP 
(R) 
4.S5S7E+@2 
4.SS6E 162 
4.5SS5SE +62 
4.SS56E 902 
4.556E 962 
4.SSEE 962 
4.SSEE+@2 
4.S55E#@2 
4.SS6E +02 
4.S5S6E 962 
4.SS6E 902 
4.SS7E +62 
4.5S57E+62 
4.SS7E 462 
4.55 7E 102 
4.SS8E 962 
4.558E 162 
4.SS8E +62 
4.55 7E€ $02 
4.SS8E +62 
4.SS7E4@2 
4.5S8E162 
4.558E 9@2 
4.SS9E +82 
4.S5S59E+@2 
4.SS59€ +e2 
4.559€ 982 
€.SS8E1@2 
4.S6@E #02 
4.SS9E 162 
4.SS8E +62 
4.5S8E'@2 
4.5S58€ 902 
4.5S58E 982 
4.5S59€ +62 
4.SBIE+@2 
4.S62E+@2 
4.S62E +82 
4.S6TE+@2 
4.S6?E 182 
4.SB1E 182 
@.SBIE+@2 
4 .SEQE +82 
4.S61E9@2 
4.S6RE #82 
4.SBIE@2 
4.S61E+@2 
4.S61E9@2 


4@s. 
40s. 


aes. 


TABLE BS. 
SCAN Vel 

| 1.673E+02 

2 1.640E+02 
3 1.560E +02 
4 1.504E +02 
S 1.446E+02 
6 1.409E +02 
7 1.405E+02 
8 1.403E+02 
g 1.406E+02 
12 1.423E+02 
11 1.440E+02 
12 1.468E+02 
13 1.SIGE+02 
14 1.S64E+02 
1S 1.613E&+02 
16 1.656E+02 
17 1. 700E+02 
18 1.747E+02 
19 1.780E+02 
22 1.818E+02 
21 1.850E+02 
22 1.87SE+02 
23 1.903E+02 
24 1.913E+02 
25 1.932E+02 
26 1.94S5E+@2 
27 1.954E+02 
28 1.959E+@2 
23 1.960E+02 
30 1.963E+@2 
3} 1.961E+02 
a2 1.970E +02 
33 1. 966E+@82 
34 1.981E+02 
3S 1.97SE+02 
36 1.97SE +02 
37 1.979E+02 
38 1.973E+02 
39 1.979E+02 
40 1.977E+02 
4\ 1.974E+02 
42 1.971E +02 
43 1.960E+02 
44 1.938E+02 
4S 1.912E+02 
46 1.87S5E+02 
47 1.844E+02 
48 1.787E+02 
49 1.762E+02 


DATA FILE U-4SEPACALC 


Vref 


.032E +02 
.026E +02 
.019&+82 
.819E +02 
.O17E+02 
.017E+O02 
.916E+02 
-O@15E+02 
.013E+02 
~214E+02 
.917E+02 
.O18E +02 
.0@48E +02 
.@68E+02 
.O77E+O82 
.094E+02 
. 100E+02 
. 1Q6E +82 
.110E +02 
~11SE+02 
~121E+02 
.123E +02 
. 125E +02 
. 120E+02 
. 125E +02 
. 125E +02 
.130E+02 
.134E+02 
.132E+02 
.139E +02 
. 138E+02 
. 139E +82 
- 143E +82 
~146E+02 
~147E+02 
1S1E+02 
. IS6E+O2 
. 1S6E +02 
. 1SB8E+O2 
. 159E+82 
~ 1S9E+02 
. 1666 +82 
. 1666 +02 
. 167E +02 
.173E+82 
2.173E+02 
2.17SE+82 
2.180E+02 
2.181E+02 


NA A) AD 8) A A A A AD 


NNNNN NN NN NN NN NN NNN NNN NN PNK hn RD 8 AD 


Q 


7.277E+00 
6.992E+02 
6.332E +00 
5.880E+00 
S.434E+00 
S.157E+00 
S.130E+00 
S.112E+00 
S.135E+00 
S.260E+00 
S.384E+00 
S.S98E+00 
S.974E+00 
6 .359E +00 
6.7S59E +00 
7.125E+00 
7.S11E+00 
7.939E+00 
8.245E+00 
8 .601E+00 
8.911E+00 
9.1S5SE+00 
9.435E+00 
9.528E +00 
9.721E+00 
9.85S5E +00 
9.953E +00 
9.998E +00 
1.0Q00E+0! 
1.@04E+01 
1.002E+@I 
1.012E+O1 
1.Q@07E+01 
1.023E+01 
1.Q016E+OI 
1.@16E+O01 
1.020E+@1 
1.013E+01 
1.Q@20E+01 
1.@19E+O1 
|. 01SE+OI 
1.@12E+01 
1.Q0Q01E+01 
9.778E+80 
9.520E+00 
9.1SIE+00 
8.846E+00 
8.302E+00 
8.275E+00 


147 


Qref 


1.Q07BE+OI 
1.071E+01 
1.064E+01 
1.@64E+0I 
1.062E+01 
1.062E+01 
1.Q061E+01 
1.@6@E+O1 
1.@S8E+Ol 
1.Q@S9E+OI 
1.@62E+OI 
1.@63E +01 
1.@9SE+O1 
1.117E+01 
1.127E+O1 
1.144E+01 
1.1SIE+OI 
1.1S8E+OI 
1.162E+01 
1.168E+O1 
1.17SE+O1 
1.177E+01 
1. 179E+O1 
1.174E+01 
1. 179E+O1 
1.178E+01 
1. 18SE+OI 
1.189E+O1 
1. 187E+OI 
1. 19SE+O1 
1.194E+O01 
1.19SE+O1 
1.199E+O1 
1.203E+01 
1.203E+O0I 
1.208E+Ol 
1.213E+O1 
1.213E+O1 
1.21SE+O1 
1.217E+O1 
1.217E+01 
1.22S5E+O1 
1.22SE+O! 
1.226E+01 
1.232E+O01 
1.233E+01 
1.23S5E+O1 
1.240E+01 
1.242E+01 


DOWNSTREAM BLADE-TO-BLADE REDUCED PROBE 


MACH 


.603E-@1 
2o7 1E-O1 
~49S5E-Ol 
-440E-O1 
-38SE-Ol 
~349E-O1 
~546E-O1 
Ta4oe Ol 
-346E-Ol 
36 3E-Ol 
-379E-Ol 
-4Q06E-Ol 
-452E-O1 
-498E-O1 
.S545E-O1 
-SB6E-O1 
-628E-@1 
-674E-O1 
. 7O6E-OI 
»742E-Ol 
~(75E-O1 
~ 797E-O1 
.825E-O1 
.834E-O1 
.8S2E-O1 
.865E-O1 
-874E-O1 
-87BE-OI 
.879E-O1 
.B82E-@l 
. 880E-@l 
-889E-O! 
.B88SE-O1 
. SOQE-O1 
.893E-OI 
.893E-O1 
.B897E-O1 
-O9tE-O} 
~B897E-Ol 
.896E-OI 
.892E-Ol 
.B890E-O1 
- 880E-O1 
-8S7E-O1 
.833E-Ol 
atoave-O| 
- /67E-O1 
~7I2E-O1 
-688E-O1 


YAW 
DEG 


2. 


« 
s 
e 
s 
s 
. 
e 
e 
. 
s 
s 
s 
s 
s 
s 
® 
* 
e 
s 
e 
s 
e 


2 
2 
| 
1 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
2 
| 
5 
3 
2] 
3 
3 
5) 
Sc 
3. 
on 
She 
a: 
aie 
2. 
Fa 
Le 
rate 
2. 
Fae 
Zz. 
a 
2. 
Pa 
rate 
Fae 
Pate 
rage 
I. 
I. 
Ne 


QQ7E+00 
Q10E +08 
Q07E+00 
763E+00 
7S57E+00 
204E+00 
264E +00 
258E +00 
S31E+00 
624E+00 
788E+00 
7BGE +00 
Q26E+00 
296E +00 
27S5E+00 
SS4E +00 
SS0E +00 
S40E +00 
SS6E+00 
294E +00 
281E+00 
284E +00 
296E +202 
285E +00 
296E+00 
Q23E+00 
Q39E+00 
Q41E+00 
224E+00 
036E+00 
Q36E +00 
776E +00 
772E +00 
782E+00 
778E +00 
773E +00 
781E+00 
787E+00 
771E +00 
784E+00 
S36E +00 
S27E +00 
S37E+00 
257E +00 
270E +00 
Q223E+00 
TS1IE+00 
768E+00 
770E +200 


TABLE B5 (CONT.). 
PROBE DATA FILE U-4SEPACALC 


=e © \@ © Se) @ © 2 «Ss © “ws «6 > @  .« > e@ >. e e e F*  @e@ © 


BETA 


1.853E-02 
[1 .779E-O2 
1.610E-82 
1.493E-02 
i, S81E-O2 
LP. 3 1SE=02 
1.304E-@2 
1.301E-@2 
1.307E-02 
1.336E-O2 
1.369E-02 
1.423E-@2 
!  SISE-02 
lab tveS 82 
[ott Se=OZ 
1, 8ISE-02 
1.914E-@2 
2.027Es02 
2.107E-02 
2.20Q0E-82 
2. 202E 502 
2.346E-@2 
2. te -O2 
2.443E-02 
24,55E-02 
2.9206 202 
2.555E—-02 
2. 5656-02 
2. 956E-02 
2.574E-02 
2.9706 -02 
2. 9J6E=02 
2.S84E-@2 
2.625E=502 
2.607E-O2 
2.607E-02 
2 -bU7E-02 
2.599E—02 
2.618E-@2 
2: 613E-02 
2.603E-02 
2.S597E-02 
2.569E-02 
2.9GdE-O2 
2.441E-02 
2.345E-82 
2. 2605E 202 
2.123E-@2 
2.@64E-@2 


GAMMA 


le sfts)o] ai /74 
8.983E-02 
1.Q18E-01 
9.524E-@2 
1.Q002E-O1 
1.Q070E-O1 
9.654E-@2 
1.@S4E-@1 
1.042E-@1 
S.2eceso7 
1.029E-O1 
1.027E-O1 
1.Q013E-O1 
Jer SVE =O2 
9.498E-02 
9.660E-2 
8 .667E-02 
6. 1Z28E-02 
8.687E-02 
7.894E-@2 
9.446E-@2 
BeZ TSE -02 
8. 302E-02 
1. 124E-02 
de Ole -e2 
7. SIGE =SO2 
tee 3ce-O2 
8.306E-@2 
8.188E-2 
Te SIOE-O2 
1.264E-O1 
9.390E-O2 
8.5359E-02 
1.247E-@1 
.251E-Ol 
1 292ZE-O) 
9.404E-@2 
9 173E-O2 
9.126E-02 
3262ce-O2Z 
9. 197E-82 
1. 4Q0E-O1 
1.426E-O) 
9..857E-82 
1.121E-O1 
1.@98E-O1 
1.035E-O1 
1.072E-O} 
1. 10S5E-O1 


148 


-| 
° 


-1I1E-03 
. 764E-@83 
. 182E-82 
.663E-03 
.@43E-@2 
-413E-@2 
-619E-05 
«324E-O2 
2656-82 
. 184E-@3 
. 186E-@2 
6 7E-O¢ 
«OG3E-@2 
. 76 7E-03 
.432E-03 
»275E-—03 
“I75E-03 
~S3de=02 
-J6GE=03 
-477E-@4 
.283E-03 
weolE=05 
.469E-@3 
»466E-03 
.QO7E-03 
~IZ1E~@4 
.4S9E-04 
-447E-03 
-475E-04 
-S62E-03 
-5S4E-O2 
Be 4742 le, 
«619E-03 
»247E-82 
a7 DE-O2 
-473E-@2 
-37SE-205 
-021E=83 
$90 9E-eo 
.083E-83 
wOOGE-O3 
.@20E-82 
WSIE=82 
.218E=03 
-61SE=82 
. 506E-@2 
. 188E-@2 


374E-@2 
S47E-@2 


Xvel 


7.148E-@2 
7.@Q@8E-@2 
6.671E-@2 
6.429E-@2 
6.181E-@2 
6.022E-02 
6.@@7E-@2 
S7996Ee02 
6 .Q01@E-@2 
6 .Q82E-02 
6.153E—02 
6.274E-@2 
6.48@E-02 
6.686E-@2 
6. 89ZE-@2 
1.075E-=02 
Teeboeced 
7.466E-02 
7.607E-82 
1. (6GE=02 
7.9@6E-@2 
8 .Q13E-02 
6. 133E=82 
8.173E-@2 
6.254E-62 
8.31Q0E-@2 
8B. S35 NE 202 
6. 3705-02 
6. 372E 502 
8. 386E-@2 
8:3 /8E-02 
8.42Q0E-O2 
8.401E-@2 
8.467E-82 
8.438E-02 
6 SVE -82 
8.454E-02 
8.426E-@2 
8.4SS5SE-@2 
8.447E-@2 
8.432E-02 
G2. #228 02 
6 °376E-02 
8.278E-@2 
8.169E-@2 
8.Q10E-@2 
(<877EB=02 
Cisse aO2 
1.52BE-02 


DOWNSTREAM BLADE-TO-BLADE REDUCED 


Xref 


8.684E-02 
8.658E-@2 
8.630E-@2 
8.628E-a2 
8.621E-@2 
8.620E-@2 
8.617E-@2 
8.613E-@2 
8.6@S5E-02 
8.610E-82 
8.622E-@2 
8.624E-@2 
8.7S2E-e2 
§.838E-02 
8.878E-82 
8.947E-O2 
§.973E-02 
6.999E-G2 
5.017E-ca 
9.@36E-@2 
9.06SE-22 
9.074E-@2 
9.08@E-@2 
§.059E-92 
9.081E-@2 
9.077E-@2 
9. 103E-8z 
9.118E-@2 
9.110E-@2 
9.140E-@2 
9.1366-82 
9.139E-G2 
9. 1S6E-Gz 
9.17@E-@2 
3217 2E-ve 
9: P6SE—02 
9.2Q08E-@2 
9.209E-G2 
9.2186—¢2 
9.224E582 
3.222E7e2 
9.2526 =07 
9.255E 02 
9.2592 <2 
9.282E-62 
9. 262E-e2 
9.290E-@2 
9-311E-82 
9.319E=02 


TABLE B5 (CONT.). DOWNSTREAM BLADE-TO-BLADE REDUCED 
PROBE DATA FILE U-4SEPACALC 


SCAN Pref-Pt/Qref 
3.650E-O1 
3.889E-Ol 
4.490E-01 
4.919E-@1 
S.331E-O1 
S.S84E-01 
S.628E-01 
S.633E-@) 
S.632E-01 
10 S.S27E-@) 
1 S.417E-01 
2 S.238E-O1 
13 S.062E-O1 
14 4.834E-O1 
1S 4.S529E-01 
16 4.282E-O1 
17 3.963E-O1 
18 3.631E-@1 
19 3.374E-@1 
20 3.Q68E-O1 
21 2.827E-O1 
22 2.606E-O1 
23 2.3616-@1 
24 2.232E-01 
25 2.@76E-O1 
2 1.937E-01 
Z 1.879E-01 
28 1.871E-O1 


wma yainwt @ wA — 


a2 1.770E-@1 
335 1B Soe —01 
34 [7 FGE=O) 
35 Tes be | See 
36 83 7E-Cl 
37 1.831E-Q! 
38 1. 883E-01 
39 1.842E-OI 
42 1.856E-@1 
4} |. S0ZE-@1 
42 1.981E-@1 


43 2.1Q1E-01 
44 2.3@6E-@1 
4S 2.5959E-0) 
46 Zao le -Ol 
47 3.201E-@! 
48 3.7Q00E-@! 
49 3.912E-0 


BERBER RRR RRERRERERERERERERERERERRE RE RE RERRERERERERRERERSRRERERRERRESEERERERERERRER RAR ARRRRA RRR 
ENSEMBLE AVERAGES 


PPAVG PAAVG TEMPAVG XREF AVG VREFAVE QREFAVG 
1.172E4+01 405.20E+00 458.84 93.Q@07E-82 2.108E+02 1. 160E+01 
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TABLE B6. BLADE SCALED DATAVFILE SE 45227 5e0 


FROBE DATA ASSOCIATED WITH THE BLADE OATA I5 CONTAINED 
IN FILE: L-4SEFASCL 

STAN: 31 
SCANIVALVE FRESS (INCHES HZo) 
FORT 

8.000c-05 

1.487E+01 

1.264E+61 
-3.614E+00 
-1.154E+00 
.00E-O) 
.BOCE-GI 
_Scve-e1 
.coOE-GI 
.640E-01 
.OZCE-6) 
.600E-01 
.W0ZE+00 
.645E+60 
.4Z26E +80 
.18Z£+00 
.482E +98 
.BIZE+00 
-S36E +00 
.OZ6E+60 
. JOBE +00 


Qwa -~j @ UT &® I AD — 


=~) Ul & Gin) — 
——- wo uw) wo AS 


Los) 


“a— — 
mw a 
& & ff) 


t 
1.3524E+061 
3.455E+01 
-3.38ZE+61 
2. 366E+01 
-~Z.czl1E+61 
-1.806E+61 
-1.436F+01 
~1.3504dE+61 
-1.1@SE+01 
-8.65627+00 
-7.264E +86 
-5.5374E+60 
5.214EF+60 
-4,570£+00 
-4 .G60E +60 
-3.300E +00 
-TI6E +66 
.50zE +06 
.c54dE +00 
. 15S5E+00 
. 160E-61 
. T56E +80 
.560E+60 
.612E +00 
.66GE-81 
48 -2.856E+00 


—VT Ww @M -10 U1 & I KD = 
I 


@ &! bi Gi Oi Oi GO! LO! OI OI Oi AA R~ RD A AD RO RD RD RD 


SOwm ~i Oy & Gi A) 
t 
u 


~~ & 

Ab — 

| 
w— O§ wo ~1 Ob LI Oi Li 


Re 
Os 
1 
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TABLE B7. BLADE REDUCED DATA FILE B-4SEPACALC 


SCANIVALVE MASS AVERAGED COEFFICIENT 
PORT OF PRESSURE 
4 2-356 -01 
S 3.507E-O1 
6 4.263E-O1 
if 4.612E-@1 
8 4.663E-O1 
3g 4.646E-@1 
10 4.SISE-O1 
11 4.636E-@1 
12 4.513E-@1 
13 4.691E-O1 
14 S.16@E-81 
15 S.481E-@1 
16 S.345E-O01 
17 4.9S57E-@1 
18 S.140E-@1 
19 5. 4636-01 
20 6.367E-O1 
2) 6.8S54E-O1 
oe 8.201E-@l 
Zo -6.524E-@1 
24 =1.525E4+90 
25 -1.460E+8@ 
26 -1.230E+0@ 
27 [6.07 VE-@l 
28 =5, Sh9E=0| 
24 ~4.153E-@1 
38 -3.092E-O1 
31 a I66E-0 | 
Se -6 .626E-@2 
58) 1.440E-02 
34 B. 2556-02 
35 1.247E-Ol 
36 1.604E-O1 
37 |.686E-@1 
38 IeS71E-@0 
39 2.@77E-O) 
42 2. 195E-0) 
4 Z2.55596-01 
42 2, J8bE-@1 
43 S.7o9e-0! 
44 —-26 7E-01 
45 2.149E-O1 
46 S.@29E-@1 
47 4.682E-@l 
48 Z.551E-O1) 


Por 


2% RETURN 
Ses Press LOAD 


4. Type INITFLEX between quotation marks. [The root 
directory based INITFLEX program formats the disc. ] 


5; “REDURN 
6. Press RUN 
ci Follow the prompts--the process takes a few 
minutes. 
Once the disc is formatted, it can be used to back up 
files. To load the root directory-based BACKUP program, 


use the following steps: 


Deke es ee MiSs 

Je TREDURN 

328) Press LOAP 

4. Type BACKUP between quotation marks 
5 RETURN 

Oe Press RUN 


Ts Press SELECT. [The arrow indicator will be at the 
desired position i.e., "Backup selected files."}] 


38. Type /CLASSICK/DESIRED SUBDIRECTORY, — ©). 07 7 5 
9. RETURN 


10” Press PROCEED. (Use arrow keys to move indicator 
EO Liev ble dese OpGlon ad 


Li > -Press SELECT 


12. Press YES. [Note the caution] 


The backup process proceeds to completion, displaying each 
file transferred to the flexible disc. If there are too 
many files for one disc, a prompt for an additional disc 


Bm 


will be displayed. Note that the files generated by "CALC" 


consume a let of disc space. Upon completion, 


13. Press UNLDTAPE 


14. Press DONE 


B.9 RECOMMENDATIONS 

The method of obtaining probe survey data can be 
improved upon by making changes to the three main programs 
and including software additions. Changes to the programs 
will provide higher quality data, reduce the chance of 
erroneous entries and make computations more efficient. 
Software additions will enhance data recovery and reduce 
the chance of mistakenly deleting data files. Sloe Create: 


mecomnendatwzons are: 


i Improve the existing DVM error trap. Occasional] 
Surges in the facilitie’s power supply cause spurious 
DVM readings. Spurious DVM readings are trapped by the 
Maxdif variable on line 91 of "ACQUIRE" and the IF-THEN 
structure in the subprogram "Readdvm". The existing 
trap is adequate for Scanivalve port readings but not 
for yaw transducer readings. A separate Maxdif value, 
and incorporation into "Readdvm", is required for the 
yaw transducer. Alternately, a subroutine to 
statistically analyze and reject spurious DVM readings 
could be added to "Readdvm", [A more extenSive but 
permanent solution is to rectify the power surge 
probiem. ] 


eS 


2. Dynamically size the CALC array in pregren «one 
This 1s done in "ACQUIRE" with the Rawdat “and Scare 
arrays. Dynamic sizing would reduce the amount of disc 


space the reduced data files from "CALC” consume. 


3. Eliminate the need in "ACQUIRE" for scan number and 
position entries by the user for each data point. For 
repetitive surveys with a known number of data points 
and probe displacement interval, a data file could be 


used to supply those values. 


4.- Combine “CALC” Sanam LGs.. The AVDR and loss 
coefficient could be calculated within the structure 
EQSt Vea leile ces Ci: While this would eliminate one 
program, it would complicate the structure of “CAnG® 

somewhat and make the structure more difficult for a 


new user to grasp. 


5. Create a subdirectory for the scaled data files 
ficonm “ACOU TRE This would eliminate the clutter oF 
files in the REDDATA subdirectory, and make the file 
system consistent with the distinction that program 
"CALC" makes between scaled and reduced data files. A 
cluttered file system increases the chances of losing a 
valuable file during a purge. This addition woul 
require change to the MSI statements on lines 130, 374, 


581 and 763 in "ACQUIRE" and line 130 in "CALC." |Aywen 


" /CLASSICK/REDDATA" would have to be inserted before 
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line 134 to allow access to the probe coefficients file 


stored in the subdirectory READDATA. 


Se. Vevelop a program tO print a tabulation of the data 
stored in the scaled data files. This tabulation 
proularauplicate the format in "ACQUIRE." The program 
can be produced by appropriate additions and deletions 
to "“ACQUIRE" since the formatted print statements 


already exist. [See Chapter 11, Ref. 13.] 


iO. PORE orR = SUMMARY OF “PROGRAM STEPS 

All commands except RETURN are executed by pressing 
the set of keys fl - f8 corresponding to the soft key 
labels appearing at the bottom of the screen. RETURN is 
the key found on the main keyboard. 


The following is a summary of program steps: 


i. DVM, Scanner and Scanivalive Controller--ON 
eee Disc Drive--ON 

3. Disc Drive Amber Lights--EXTINGUISHED 

4. Computer, Monitor and Printer--ON 

See OAD */CLASSICK/PROGS /ACQUIRE" 

6. RETURN 

foe 6 RUN 


8. Type raw data file name for probe survey without 
quotation marks. 


9. RETURN 
i0. Type scaled data file name for probe survey. 


es RETURN 


is 5 


12. Type atmospheric pressure in inches Hg. 

(ee ea tinU pos 

14. Press ONE PROBE or TWO PROBES 

15. Type scan number and probe position. For two probe 
option, type scan number, lower probe position and 
upper probe position. 

16. RETURN 

17. Press REPEAT or RECORD 


(REPEAT returns prompt for scan number and position 
of data point to be repeated. Record stores data to 


the file. }] 
18, Press GO ON OrV@Enperns ae 

(GO ON, returns prompt for scan number and probe 
position of next data point. END PRB DATA terminates 
probe data Collectien.| 
19. Press GO -ON -O1DeceLLEC! 


[GC ON, by-passes blade data coilection and returns 
print option prompts (Step 20). COLLECT, YretUrmae 
prompt for raw blade data file name. } 

a. Type raw blade data file name 

OR RETURN 

c. Type scaled blade data file name 

Ge RETURN 

e. Press REPEAT or RECORD 


(REPEAT, repeats ene blade pressure ScCanr 
RECORD, stores Gata to the figke ws) 


20. Follow the print optionmeproner— 


Note that this is the only time to obtain a hard 
copy of the raw and scaled probe and blade data. 


a ae Press GO ON or CALC 


[GO ON, Terminates "ACQUIRE" } 
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Note that "CALC" can be executed later by the 
Scmmonmewm wee ~ ' /CLASSICK /PROGS/CALC™" CALC, Loads and 
executes "CALC" ] 


22. Type the scaled probe data file name created in 
Tae Ou ine." 


wee «6h RE PURN 


nA, Type the probe calibration coefficient file for X 
jvelocity ). 


Peek: | URN 


Po. type the probe Calibration coefficient file for 
Ear (pitch). 


ey. RETURN 
fee tess ONE PROBE or TWO PROBES 


(TWO PROBES, wiil prompt the user for the upper 
probe calibration coefficient files for X and Phi] 


29. Type the file name for the data to be reduced 

from the scaled data file. For two probes, a second 
scaled data file name is required. 

eee RETURN 


31. Press REDUCE DATA after amber light quits 
mink ing. 


fe. Press GO ON or BLADE Cp’s. 


SCOetivewece liens promoc to toad "LOSS" (step. 33) 
BLADE Cp’s, prompts for scaled blade data file name. ] 


a. Type blade scaled data file name 
b. RETURN 


c. Type the file name for the data to be reduced 
from the scaled data file. 


Ce ee UR 


e. Type scan number associated with lower limit 
of integration of probe lower blade-to-blade 
survey. 


fe Peel URN 


gq. Type scan number associated with higher limit 


— 


of integration cf probe lower blade-to-blade 
survey. 


lowe soi Uist 


1. Press BLADE DATA after amber light quits 
blinkine. 


33. Press CO ON cr Bess 


a. GO ON terminates "CALC". Note that "LOSS" can 
can be executed later by Gheconmance 


1. LOAD “/GEASSICK/ PROC] 16.” 

2. LOSS, loads and executes "LOSS" 
b. Note that "LOSS" requires upper and lower 
probe blade-to-blade survey reduced data file 


Hanes. | 


34. Type the lower probe blade-to-blade survey reduced 
data file name. 


joie) URECURN 


36. Type the upper probe blade-to-blade survey reduced 
data file name. 


37 .. WORETORN 


38. Type the scan number corresponding to the lower 
limit of integration for the lower probe survey. 


Sos “AoE 


40; Type the scan number corresponding to the higher 
limit of integration for the lower presse Sur ves 


41) RE TORN 
42. Repeat for upper probe survey. 

[Note that integration interval for both upper vane 
lower probes must be exactly equal even though the scan 
number entries may not be the same. } 

43. Program "LOSS" terminates after static pressure 


rise coefficient, AVDR and loss coefficient are printed 
to the screen. 


ioe 


APPENDIX C 


PROBE YAW ANGLE REFERENCING 


Two methods can be used to relate yaw angle measured using 
the angle vernier (or electrical equivalent), to the locus of 
the leading edges of the cascade. Both make use of a digital 
precision inclinometer which measures angles to the horizon- 
tal with a resolution of 0.1°. A flat bar must be attached 


firmly to the probe shaft. 


C.1 FREE-JET METHOD 


Step 1 Mount the probe in the free-jet from the N side 
as shown in Figure Cl(a). 


Balance the probe pneumatically. 


Read the angle of the bar (to horizontal) using 
the inclinometer (Aj). 


Step 2 Mount the probe in the free-jet from the S side 
as shown in Figure Cl(b). 


Balance the probe pneumatically. 


Read the angle of the bar (to horizontal) using 
the inclinometer (A>). 


Step 3 If Agis the angle of the probe pneumatic axis 


(P.A.) to the surface of the bar, and 6, is the 
inclination of the free-jet to the horizontal, 
then 


ay = OY Oy, 


and 


1esye, 


Hence 


Step 4 Mount the probe on the cascade on the N side as 
Shown in Figure Cli(c). 


Read the vernier when the bar is horizontal (Py). 


Then, the angle of the pneumatic axis to the 
vertical 


Bea = 90 — Ap 


Angle of the pneumatic axis to the normal to the 
locus of the leading edges 


Bipn = Brea - 6p = 90 - Ap - OB. 


Rotate probe to balance in the flow. Read the 
venier (Pr). 


The flow angle, related correctly to the normal 
to the locus of the leading edges, is given by 


Bion + Aen 
= 90° = Ao - Opeth seme e 


C.2 LDV (IN SITU) METHOD 


Mount the probe and balance at a point where fy is known 
from LDV measurements. Read the vernier (Bf,). Turn the bar to 


horizontal. Read the vernier (By) 
then B'pa = Bi - (Be, = Balers Pe meepe 


At any other condition, the inlet air angle is given by 


B = B'pa + (Br - Bu) 
(Bi = peter 
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a) From N. Side on Free-Jet 






eevee Horizontal 


b) From S. Side on Free-Jet 


Cascade T.E. Locus 


Horizontal 





Vertical 


c) From N. Side on Cascade 


Figure Cl. Probe Angle Referencing 
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